(translation_unit (comment) (module (module_statement (name)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (use_statement (module_name) (included_items)) (ERROR (comment) (UNEXPECTED '|')) (comment) (ERROR (UNEXPECTED '|')) (comment) (ERROR (UNEXPECTED '|')) (comment) (ERROR (UNEXPECTED '|')) (comment) (use_statement (module_name) (included_items (identifier) (identifier) (identifier) (identifier) (identifier))) (use_statement (module_name) (included_items (identifier))) (use_statement (module_name) (included_items (identifier) (identifier) (identifier) (identifier) (identifier) (ERROR (UNEXPECTED '|') (UNEXPECTED '_') (UNEXPECTED '_')) (identifier) (identifier))) (use_statement (module_name) (included_items (identifier))) (implicit_statement (none)) (save_statement) (ERROR (comment) (comment) (comment)) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (assignment_statement left: (identifier) right: (number_literal))) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (assignment_statement left: (identifier) right: (number_literal))) (comment) (comment) (variable_declaration (intrinsic_type) (identifier)) (comment) (variable_declaration (intrinsic_type) (identifier)) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (number_literal))) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (assignment_statement left: (identifier) right: (number_literal))) (variable_declaration (intrinsic_type) (identifier)) (comment) (variable_declaration (intrinsic_type) (identifier)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (assignment_statement left: (identifier) right: (number_literal))) (variable_declaration (intrinsic_type) (identifier)) (comment) (comment) (variable_declaration (intrinsic_type) (identifier)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (ERROR (UNEXPECTED '|') (number_literal) (number_literal) (comment) (UNEXPECTED '|') (number_literal)) (assignment_statement left: (number_literal) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (ERROR (UNEXPECTED '_')) right: (boolean_literal))) (variable_declaration (intrinsic_type) (type_qualifier) (ERROR (UNEXPECTED '|') (UNEXPECTED '_')) (assignment_statement left: (number_literal) (ERROR (UNEXPECTED '|') (UNEXPECTED '_')) right: (number_literal))) (variable_declaration (intrinsic_type) (identifier)) (comment) (comment) (variable_declaration (intrinsic_type) (assignment_statement left: (identifier) right: (boolean_literal))) (variable_declaration (intrinsic_type) (type_qualifier) (ERROR (UNEXPECTED '|')) (assignment_statement left: (number_literal) right: (number_literal)) (comment) (ERROR (UNEXPECTED '|')) (assignment_statement left: (number_literal) right: (number_literal))) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (ERROR (UNEXPECTED '|')) (call_expression (number_literal) (argument_list (number_literal))) (comment) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (number_literal)) (ERROR (comment) (UNEXPECTED '|')) (argument_list (number_literal))) (comment) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (number_literal)) (ERROR (comment) (UNEXPECTED '|')) (argument_list (number_literal))) (comment) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (number_literal)) (ERROR (comment) (UNEXPECTED '|')) (argument_list (number_literal))) (comment) (ERROR (UNEXPECTED '|') (number_literal) (comment) (UNEXPECTED '|') (number_literal) (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (number_literal) (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (number_literal) (comment) (UNEXPECTED '|') (number_literal) (comment) (UNEXPECTED '|') (comment) (comment) (comment)) (identifier)) (ERROR) (ERROR (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (comment) (comment)) (variable_declaration (intrinsic_type) (ERROR (UNEXPECTED '|') (UNEXPECTED '_')) (call_expression (parenthesized_expression (identifier)) (ERROR (comment) (UNEXPECTED '|') (UNEXPECTED '_')) (argument_list (identifier))) (comment) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR (comment) (UNEXPECTED '|')) (argument_list (identifier))) (call_expression (identifier) (argument_list (identifier))) (comment) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier)))) (ERROR (comment) (ERROR (UNEXPECTED '|')) (parenthesized_expression (identifier))) (comment) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (ERROR (UNEXPECTED '|') (parenthesized_expression (identifier))) (call_expression (number_literal) (argument_list (identifier))) (call_expression (identifier) (argument_list (identifier))) (comment) (ERROR (UNEXPECTED '|') (parenthesized_expression (identifier))) (call_expression (number_literal) (argument_list (identifier))) (call_expression (identifier) (argument_list (identifier))) (comment) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (ERROR (UNEXPECTED '|')) (call_expression (complex_literal (identifier) (identifier)) (ERROR (comment) (UNEXPECTED '|')) (argument_list (identifier))) (call_expression (identifier) (argument_list (identifier))) (call_expression (identifier) (argument_list (identifier)))) (comment) (comment) (variable_declaration (intrinsic_type) (call_expression (identifier) (argument_list (identifier) (identifier))) (call_expression (identifier) (argument_list (identifier) (identifier))) (ERROR (UNEXPECTED '|')) (call_expression (number_literal) (ERROR) (argument_list (identifier) (identifier))) (call_expression (identifier) (argument_list (identifier) (identifier))) (ERROR (UNEXPECTED '|')) (call_expression (number_literal) (ERROR) (argument_list (identifier) (identifier)))) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (call_expression (identifier) (argument_list (identifier)))) (variable_declaration (intrinsic_type) (call_expression (identifier) (argument_list (identifier)))) (comment) (comment) (comment) (internal_procedures (contains_statement) (comment) (ERROR) (subroutine (subroutine_statement name: (name) parameters: (parameters (identifier) (identifier) (identifier) (identifier))) (comment) (comment) (comment) (use_statement (module_name) (included_items (identifier) (identifier))) (use_statement (module_name) (included_items (identifier))) (use_statement (module_name) (included_items)) (ERROR (comment) (UNEXPECTED '|')) (comment) (ERROR (UNEXPECTED '|')) (comment) (ERROR (UNEXPECTED '|')) (comment) (ERROR (UNEXPECTED '|') (UNEXPECTED '|') (UNEXPECTED '_')) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier) (identifier) (identifier)) (variable_declaration (intrinsic_type) (type_qualifier) (identifier)) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (assignment_statement left: (identifier) right: (number_literal))) (variable_declaration (intrinsic_type) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (ERROR (ERROR (UNEXPECTED '|')) (number_literal)) (identifier) (identifier) (identifier)) (variable_declaration (intrinsic_type) (call_expression (identifier) (argument_list (number_literal)))) (variable_declaration (intrinsic_type) (identifier) (identifier) (identifier)) (variable_declaration (intrinsic_type) (identifier)) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (assignment_statement left: (identifier) right: (number_literal))) (comment) (comment) (comment) (comment) (ERROR) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (assignment_statement left: (identifier) (ERROR (UNEXPECTED '|')) right: (array_literal (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal)))) (assignment_statement left: (identifier) (ERROR (UNEXPECTED '|')) right: (array_literal (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal))) (ERROR) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (assignment_statement left: (identifier) (ERROR (UNEXPECTED '|')) right: (array_literal (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal)))) (assignment_statement left: (identifier) (ERROR (UNEXPECTED '|')) right: (array_literal (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal))) (ERROR) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (subroutine_call subroutine: (identifier) (argument_list (string_literal))) (ERROR) (comment) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (identifier)) (comment) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (string_literal))) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (assignment_statement left: (identifier) right: (number_literal))) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (unary_expression argument: (number_literal)))) (assignment_statement left: (identifier) right: (unary_expression argument: (number_literal)))) (end_if_statement)) (assignment_statement left: (identifier) right: (number_literal)) (comment) (comment) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier)))))) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (number_literal) (math_expression left: (unary_expression argument: (number_literal)) right: (math_expression left: (number_literal) right: (identifier)))))) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier)))) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (parenthesized_expression (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (identifier) right: (math_expression left: (parenthesized_expression (math_expression left: (identifier) right: (identifier))) right: (parenthesized_expression (math_expression left: (identifier) right: (identifier))))) (comment) (comment) (assignment_statement left: (identifier) right: (math_expression left: (parenthesized_expression (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier)))) right: (number_literal))) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier)))) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (number_literal) (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier)))))) (assignment_statement left: (identifier) right: (math_expression left: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (number_literal))))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (number_literal) (math_expression left: (identifier) right: (number_literal))))))) (assignment_statement left: (identifier) right: (math_expression left: (parenthesized_expression (math_expression left: (identifier) right: (identifier))) right: (parenthesized_expression (math_expression left: (identifier) right: (identifier))))) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (parenthesized_expression (math_expression left: (unary_expression argument: (number_literal)) right: (math_expression left: (number_literal) right: (parenthesized_expression (math_expression left: (identifier) right: (number_literal)))))) right: (identifier))) (ERROR) (call_expression (parenthesized_expression (identifier)) (ERROR (UNEXPECTED '|')) (argument_list (identifier))) (comment) (comment) (comment) (ERROR) (statement_label) (assignment_statement left: (parenthesized_expression (identifier)) right: (call_expression (identifier) (argument_list (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (number_literal) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (number_literal) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (number_literal)) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (number_literal)) (comment) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier)))) (assignment_statement left: (identifier) right: (math_expression left: (unary_expression argument: (number_literal)) right: (math_expression left: (number_literal) right: (parenthesized_expression (math_expression left: (identifier) right: (number_literal)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier))) (comment) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (parenthesized_expression (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (identifier) right: (math_expression left: (parenthesized_expression (math_expression left: (identifier) right: (identifier))) right: (parenthesized_expression (math_expression left: (math_expression left: (identifier) right: (identifier)) right: (identifier))))) (comment) (comment) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier)))) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier)))) (comment) (assignment_statement left: (identifier) right: (math_expression left: (math_expression left: (identifier) right: (identifier)) right: (identifier))) (assignment_statement left: (identifier) right: (math_expression left: (math_expression left: (identifier) right: (identifier)) right: (identifier))) (assignment_statement left: (identifier) right: (math_expression left: (math_expression left: (number_literal) right: (parenthesized_expression (math_expression left: (identifier) right: (identifier)))) right: (identifier))) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (parenthesized_expression (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (identifier) right: (math_expression left: (parenthesized_expression (math_expression left: (identifier) right: (identifier))) right: (parenthesized_expression (math_expression left: (math_expression left: (identifier) right: (identifier)) right: (identifier))))) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (parenthesized_expression (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (identifier) right: (math_expression left: (parenthesized_expression (math_expression left: (identifier) right: (identifier))) right: (parenthesized_expression (math_expression left: (identifier) right: (identifier))))) (comment) (comment) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (math_expression left: (math_expression left: (identifier) right: (identifier)) right: (identifier))) (assignment_statement left: (identifier) right: (math_expression left: (math_expression left: (identifier) right: (identifier)) right: (identifier))) (comment) (comment) (assignment_statement left: (identifier) right: (math_expression left: (identifier) right: (number_literal))) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (number_literal) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (number_literal) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (parenthesized_expression (math_expression left: (unary_expression argument: (number_literal)) right: (math_expression left: (number_literal) right: (identifier)))) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (parenthesized_expression (math_expression left: (unary_expression argument: (number_literal)) right: (math_expression left: (number_literal) right: (identifier)))) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (math_expression left: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier))) right: (number_literal))) right: (identifier)) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (math_expression left: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier))) right: (number_literal))) right: (identifier)) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (math_expression left: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier))) right: (number_literal))) right: (identifier)) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (math_expression left: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier))) right: (number_literal))) right: (identifier)) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier))) right: (math_expression left: (math_expression left: (number_literal) right: (identifier)) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier))) right: (math_expression left: (math_expression left: (unary_expression argument: (number_literal)) right: (identifier)) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (math_expression left: (parenthesized_expression (math_expression left: (unary_expression argument: (number_literal)) right: (math_expression left: (number_literal) right: (identifier)))) right: (identifier)) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (math_expression left: (parenthesized_expression (math_expression left: (unary_expression argument: (number_literal)) right: (math_expression left: (number_literal) right: (identifier)))) right: (identifier)) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier))) right: (math_expression left: (number_literal) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier))) right: (math_expression left: (number_literal) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier))) right: (math_expression left: (number_literal) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier))) right: (math_expression left: (number_literal) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier))) right: (unary_expression argument: (number_literal))) (comment) (comment) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier))) right: (call_expression (identifier) (argument_list (extent_specifier)))) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier))) right: (call_expression (identifier) (argument_list (extent_specifier)))) (comment) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (parenthesized_expression (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier))))) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (number_literal) (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier)))))) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier)))) (assignment_statement left: (identifier) right: (math_expression left: (math_expression left: (number_literal) right: (parenthesized_expression (math_expression left: (identifier) right: (identifier)))) right: (identifier))) (assignment_statement left: (identifier) right: (parenthesized_expression (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier))))) (assignment_statement left: (identifier) right: (parenthesized_expression (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier))))) (assignment_statement left: (identifier) right: (math_expression left: (identifier) right: (identifier))) (assignment_statement left: (identifier) right: (math_expression left: (identifier) right: (identifier))) (comment) (assignment_statement left: (identifier) right: (math_expression left: (number_literal) right: (math_expression left: (number_literal) right: (identifier)))) (comment) (comment) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (identifier) right: (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (identifier) right: (identifier)))) (if_statement (parenthesized_expression (relational_expression left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (number_literal) right: (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (number_literal) right: (identifier)))) (if_statement (parenthesized_expression (relational_expression left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (number_literal) right: (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (number_literal) right: (identifier)))) (comment) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (number_literal) right: (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (number_literal) right: (identifier)))) (comment) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (number_literal) (math_expression left: (math_expression left: (math_expression left: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (call_expression (identifier) (argument_list (number_literal))))) right: (number_literal)) right: (identifier)) right: (number_literal))))) (comment) (comment) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (number_literal) (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (number_literal))) right: (math_expression left: (identifier) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (number_literal))) right: (math_expression left: (number_literal) right: (identifier))) (if_statement (parenthesized_expression (relational_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (math_expression left: (number_literal) right: (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (number_literal))) right: (math_expression left: (number_literal) right: (identifier)))) (comment) (end_if_statement)) (comment) (comment) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal)) (output_item_list (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal)) (output_item_list (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal)) (output_item_list (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal)) (output_item_list (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal)) (output_item_list (identifier))) (if_statement (parenthesized_expression (identifier)) (write_statement (unit_identifier (number_literal)) (ERROR (UNEXPECTED '\n') (UNEXPECTED '|') (format_identifier (string_literal)) (identifier) (format_identifier (statement_label_reference)) (format_identifier (string_literal)) (identifier)) (format_identifier (statement_label_reference)))) (ERROR (UNEXPECTED '\n')) (if_statement (parenthesized_expression (identifier)) (ERROR (UNEXPECTED '|')) (write_statement (unit_identifier (number_literal)) (ERROR (UNEXPECTED '\n') (UNEXPECTED '|') (format_identifier (string_literal)) (identifier)) (format_identifier (statement_label_reference)))) (ERROR (UNEXPECTED '\n')) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (end_if_statement)) (end_subroutine_statement (name))) (comment) (subroutine (subroutine_statement name: (name) parameters: (parameters (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (comment) (comment) (comment) (comment) (use_statement (module_name) (included_items)) (ERROR (UNEXPECTED '|')) (comment) (ERROR (UNEXPECTED '|')) (comment) (use_statement (module_name) (included_items (identifier) (identifier) (identifier))) (use_statement (module_name) (included_items (identifier) (identifier))) (comment) (use_statement (module_name) (included_items)) (comment) (ERROR (UNEXPECTED '|') (statement_label) (identifier) (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (comment) (comment)) (variable_declaration (intrinsic_type) (type_qualifier) (ERROR (UNEXPECTED '|') (number_literal) (number_literal) (comment) (UNEXPECTED '|') (number_literal) (number_literal) (comment) (UNEXPECTED '|') (comment)) (identifier) (call_expression (identifier) (argument_list (extent_specifier (identifier) (identifier)) (extent_specifier (math_expression left: (identifier) right: (number_literal)) (math_expression left: (identifier) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier (identifier) (ERROR) (ERROR (UNEXPECTED '|') (comment) (UNEXPECTED '|')) (number_literal)) (comment) (ERROR (UNEXPECTED '|')) (number_literal) (comment) (ERROR (UNEXPECTED '|')) (number_literal) (ERROR (comment) (UNEXPECTED '|') (comment) (comment) (comment)) (extent_specifier (identifier) (identifier)) (MISSING ")"))) right: (call_expression (identifier) (argument_list (number_literal) (math_expression left: (identifier) right: (number_literal)))))) (variable_declaration (intrinsic_type) (identifier)) (comment) (comment) (variable_declaration (intrinsic_type) (identifier) (identifier) (identifier) (identifier)) (comment) (ERROR (comment)) (subroutine_call subroutine: (identifier) (argument_list (number_literal) (identifier))) (ERROR) (assignment_statement left: (call_expression (identifier) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (ERROR) (argument_list (extent_specifier) (identifier))) right: (number_literal)) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier) (identifier))) right: (number_literal)) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier) (identifier))) right: (number_literal)) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier) (identifier))) right: (number_literal)) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier) (identifier))) right: (number_literal)) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (math_expression left: (math_expression left: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (number_literal))) right: (identifier)) right: (math_expression left: (identifier) right: (number_literal)))) (assignment_statement left: (identifier) right: (boolean_literal)) (if_statement (parenthesized_expression (relational_expression left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (identifier) right: (number_literal)))) (assignment_statement left: (identifier) right: (boolean_literal))) (if_statement (parenthesized_expression (logical_expression (identifier))) (ERROR (ERROR)) (subroutine_call subroutine: (identifier) (argument_list (number_literal) (identifier))) (ERROR) (keyword_statement) (end_if_statement)) (comment) (do_loop_statement (loop_control_expression (identifier) (number_literal) (identifier)) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))) right: (call_expression (identifier) (argument_list (identifier))))) (end_do_loop_statement)) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (math_expression left: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (number_literal)) right: (identifier)) right: (number_literal))))) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (number_literal)) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (number_literal)))))) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (identifier)))) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (identifier)))) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier))))) (do_loop_statement (loop_control_expression (identifier) (number_literal) (identifier)) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (identifier)))))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier)))) right: (math_expression left: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier)))) right: (call_expression (identifier) (argument_list (identifier)))))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier)))) (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier)) (ERROR (UNEXPECTED '|')) right: (math_expression left: (parenthesized_expression (identifier)) right: (call_expression (identifier) (argument_list (identifier))))))) right: (identifier)) right: (math_expression left: (number_literal) right: (identifier))) (parenthesized_expression (math_expression left: (identifier) right: (number_literal))))) right: (identifier))) (end_do_loop_statement)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (subroutine_call subroutine: (identifier) (argument_list (identifier))) (comment) (comment) (subroutine_call subroutine: (identifier) (argument_list (identifier))) (comment) (do_loop_statement (loop_control_expression (identifier) (identifier) (identifier)) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (identifier)))) (end_do_loop_statement)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (subroutine_call subroutine: (call_expression (identifier) (argument_list (identifier) (ERROR (UNEXPECTED '|') (identifier)) (extent_specifier (identifier)))) (ERROR) (argument_list (extent_specifier (identifier) (identifier)))) (ERROR) (ERROR (UNEXPECTED '|') (parenthesized_expression (identifier) (ERROR))) (statement_label) (call_expression (parenthesized_expression (identifier) (ERROR)) (ERROR) (argument_list (extent_specifier (identifier) (identifier)))) (ERROR) (ERROR (UNEXPECTED '|') (parenthesized_expression (identifier) (ERROR))) (statement_label) (call_expression (parenthesized_expression (identifier) (ERROR)) (ERROR) (argument_list (extent_specifier (identifier) (identifier)))) (ERROR) (ERROR (UNEXPECTED '|') (parenthesized_expression (identifier) (ERROR))) (statement_label) (call_expression (parenthesized_expression (identifier) (ERROR)) (ERROR) (argument_list (extent_specifier (identifier) (identifier)))) (ERROR) (ERROR (UNEXPECTED '|')) (statement_label) (ERROR (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (comment) (comment)) (subroutine_call subroutine: (identifier) (argument_list (number_literal) (identifier))) (ERROR) (end_subroutine_statement (name))) (comment) (subroutine (subroutine_statement name: (name) parameters: (parameters (identifier))) (use_statement (module_name) (included_items (identifier))) (use_statement (module_name) (included_items (identifier))) (comment) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier)) (comment) (comment) (variable_declaration (intrinsic_type) (identifier)) (variable_declaration (intrinsic_type) (type_qualifier) (ERROR (UNEXPECTED '|')) (assignment_statement left: (number_literal) right: (number_literal)) (ERROR (UNEXPECTED '|')) (assignment_statement left: (number_literal) right: (number_literal))) (ERROR (ERROR (UNEXPECTED '|') (UNEXPECTED '_'))) (comment) (comment) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier)) (comment) (do_loop_statement (loop_control_expression (identifier) (number_literal) (identifier)) (if_statement (parenthesized_expression (logical_expression (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier))))) right: (identifier)))) right: (number_literal)))) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (parenthesized_expression (math_expression left: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier)))) right: (call_expression (identifier) (argument_list (identifier))))) right: (identifier)))) right: (number_literal))))) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier)))))) (ERROR (UNEXPECTED '|')) (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier))))))) right: (identifier)))) right: (number_literal))))) (comment) (comment) (comment) (comment) (else_clause (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier))))) right: (identifier)))) right: (number_literal)) (number_literal))) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (parenthesized_expression (math_expression left: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier)))) right: (call_expression (identifier) (argument_list (identifier))))) right: (identifier)))) right: (number_literal)) (ERROR (number_literal))))) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier)))))) (ERROR (UNEXPECTED '|')) (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier))))))) right: (identifier)))) right: (number_literal)) (ERROR (number_literal)))))) (end_if_statement)) (end_do_loop_statement)) (comment) (comment) (comment) (do_loop_statement (loop_control_expression (identifier) (number_literal) (number_literal)) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier))))) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) (comment) (end_do_loop_statement)) (comment) (comment) (end_subroutine_statement (name))) (comment) (subroutine (subroutine_statement name: (name) parameters: (parameters (identifier))) (comment) (comment) (comment) (use_statement (module_name) (included_items (identifier) (identifier))) (ERROR (call_expression (parenthesized_expression (identifier)) (ERROR (UNEXPECTED '|')) (argument_list (identifier))) (ERROR (block_label_start_expression (ERROR (UNEXPECTED '_') (UNEXPECTED '_'))) (comment)) (identifier)) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier)) (comment) (comment) (variable_declaration (intrinsic_type) (identifier)) (variable_declaration (intrinsic_type) (type_qualifier (argument_list (identifier))) (ERROR (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment)) (identifier) (assignment_statement left: (identifier) (ERROR) right: (number_literal))) (variable_declaration (intrinsic_type) (identifier)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (do_loop_statement (loop_control_expression (identifier) (number_literal) (identifier)) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier)))) (ERROR (UNEXPECTED '|')) (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier)))))))) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (identifier) right: (parenthesized_expression (math_expression left: (number_literal) right: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier)))) (ERROR (UNEXPECTED '|')) (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier)))))))))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier))))) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (identifier) right: (parenthesized_expression (math_expression left: (number_literal) right: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier)))))))) (end_do_loop_statement)) (comment) (else_clause (do_loop_statement (loop_control_expression (identifier) (number_literal) (identifier)) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier)))) (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier))))))))) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (identifier) right: (parenthesized_expression (math_expression left: (number_literal) right: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier)))) (comment) (ERROR (UNEXPECTED '|')) (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier)))))))))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier))))) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (end_do_loop_statement))) (comment) (end_if_statement)) (comment) (comment) (comment) (comment) (do_loop_statement (loop_control_expression (identifier) (number_literal) (identifier)) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (math_expression left: (math_expression left: (identifier) right: (parenthesized_expression (math_expression left: (number_literal) right: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier))))))) right: (call_expression (identifier) (argument_list (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (identifier))))) right: (number_literal))))) right: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) right: (number_literal))))) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (identifier)) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (call_expression (identifier) (argument_list (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (identifier))))))) right: (parenthesized_expression (math_expression left: (number_literal) right: (identifier)))))) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (identifier) right: (parenthesized_expression (math_expression left: (number_literal) right: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier)))))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (math_expression left: (math_expression left: (identifier) right: (parenthesized_expression (math_expression left: (number_literal) right: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier))))))) right: (call_expression (identifier) (argument_list (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (identifier))))) right: (number_literal))))) right: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (identifier)) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))))) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (identifier)) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier)))))) right: (number_literal))))) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (identifier)) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))))) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))) right: (math_expression left: (unary_expression argument: (number_literal)) right: (call_expression (identifier) (argument_list (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier)))))) right: (number_literal)))))) (comment) (comment) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (comment) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (identifier) (identifier))) (number_literal)))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (identifier)) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (identifier)))))))))) (comment) (comment) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) right: (number_literal)))) (number_literal)))) (comment) (comment) (comment) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (call_expression (identifier) (argument_list (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (parenthesized_expression (math_expression left: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier)))) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier))))))) right: (parenthesized_expression (math_expression left: (number_literal) right: (identifier)))))) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)))) right: (math_expression left: (math_expression left: (math_expression left: (identifier) right: (parenthesized_expression (math_expression left: (number_literal) right: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier))))))) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (unary_expression argument: (parenthesized_expression (math_expression left: (parenthesized_expression (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier))))) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (identifier))))) right: (number_literal)))) right: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) right: (number_literal))))) (end_if_statement)) (end_do_loop_statement)) (comment) (comment) (comment) (do_loop_statement (loop_control_expression (identifier) (number_literal) (number_literal)) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)) (identifier)))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (identifier)) (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))) (end_do_loop_statement)) (comment) (comment) (comment) (comment) (comment) (comment) (ERROR) (call_expression (parenthesized_expression (identifier)) (ERROR (UNEXPECTED '|')) (argument_list (identifier))) (do_loop_statement (loop_control_expression (identifier) (number_literal) (identifier)) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (number_literal))) (if_statement (parenthesized_expression (relational_expression left: (call_expression (identifier) (argument_list (identifier))) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (number_literal))) (if_statement (parenthesized_expression (relational_expression left: (call_expression (identifier) (argument_list (identifier))) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier)) right: (call_expression (identifier) (argument_list (identifier))))) (comment) (end_do_loop_statement)) (ERROR) (end_subroutine_statement (name)))) (end_module_statement (name))) (comment) (comment) (subroutine (subroutine_statement name: (name) parameters: (parameters (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (ERROR (UNEXPECTED '|')) (identifier) (identifier) (identifier) (identifier) (identifier) (ERROR (UNEXPECTED '|')) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (ERROR (comment) (comment) (comment) (comment) (use_statement (module_name) (included_items)) (comment) (ERROR (UNEXPECTED '|')) (statement_label) (ERROR (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (UNEXPECTED '_') (number_literal) (UNEXPECTED '_') (number_literal) (UNEXPECTED '_') (number_literal) (comment) (UNEXPECTED '|') (UNEXPECTED '_') (number_literal) (UNEXPECTED '_') (number_literal) (UNEXPECTED '_') (number_literal) (comment) (UNEXPECTED '|') (comment) (comment) (comment) (UNEXPECTED '_') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|')) (comment) (UNEXPECTED '|') (comment) (UNEXPECTED '|')) (comment) (comment) (comment) (use_statement (module_name) (included_items (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (ERROR (UNEXPECTED '|') (UNEXPECTED '_')) (identifier) (identifier) (identifier))) (use_statement (module_name) (included_items (identifier))) (use_statement (module_name) (included_items (identifier))) (implicit_statement (none)) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier)) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier) (identifier) (identifier) (identifier) (identifier)) (variable_declaration (intrinsic_type) (type_qualifier) (type_qualifier (argument_list (extent_specifier (identifier) (identifier)))) (identifier) (identifier) (ERROR (ERROR (UNEXPECTED '|')) (number_literal)) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier)) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier) (identifier)) (variable_declaration (intrinsic_type) (type_qualifier (argument_list (extent_specifier (identifier) (identifier)) (extent_specifier (math_expression left: (identifier) right: (number_literal)) (math_expression left: (identifier) right: (number_literal))))) (type_qualifier) (ERROR (ERROR (UNEXPECTED '|') (number_literal) (number_literal)) (number_literal) (comment) (comment)) (identifier) (identifier) (identifier)) (variable_declaration (intrinsic_type) (identifier) (identifier) (identifier)) (variable_declaration (intrinsic_type) (type_qualifier (argument_list (extent_specifier (identifier) (identifier)) (extent_specifier (identifier) (identifier)))) (ERROR (UNEXPECTED '|') (number_literal) (number_literal) (comment) (UNEXPECTED '|') (UNEXPECTED '_') (number_literal) (UNEXPECTED '|') (number_literal) (number_literal) (UNEXPECTED '_') (UNEXPECTED '_') (comment) (UNEXPECTED '|') (number_literal) (number_literal) (number_literal) (comment) (UNEXPECTED '|') (UNEXPECTED '_') (comment) (UNEXPECTED '|') (UNEXPECTED '_') (UNEXPECTED '_') (UNEXPECTED '_') (UNEXPECTED '|') (UNEXPECTED '_') (UNEXPECTED '_') (UNEXPECTED '_') (comment)) (identifier) (call_expression (identifier) (argument_list (extent_specifier (identifier) (identifier))))) (ERROR) (ERROR (UNEXPECTED '|') (statement_label) (ERROR (number_literal) (UNEXPECTED '_')) (call_expression (identifier) (ERROR) (argument_list (number_literal))) (comment) (identifier)) (variable_modification (type_qualifier (argument_list (extent_specifier (identifier) (identifier)) (extent_specifier (identifier) (identifier)))) (identifier)) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier)) (variable_declaration (intrinsic_type) (assignment_statement left: (identifier) right: (boolean_literal))) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (extent_specifier))) right: (number_literal)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (do_loop_statement (loop_control_expression (identifier) (identifier) (identifier)) (do_loop_statement (loop_control_expression (identifier) (identifier) (identifier)) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (parenthesized_expression (math_expression left: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier)))) right: (parenthesized_expression (math_expression left: (identifier) right: (number_literal))))) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (identifier))))) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (identifier))) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (math_expression left: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier)))) right: (parenthesized_expression (math_expression left: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (identifier)) (ERROR (UNEXPECTED '|')) right: (math_expression left: (call_expression (number_literal) (argument_list (identifier) (identifier))) right: (identifier))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (call_expression (number_literal) (argument_list (identifier) (identifier))) right: (identifier))))))) right: (identifier))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (math_expression left: (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (parenthesized_expression (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier) (identifier)))))) right: (call_expression (identifier) (argument_list (identifier) (identifier))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (parenthesized_expression (math_expression left: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (number_literal))) right: (number_literal))) right: (identifier))) (end_do_loop_statement)) (comment) (end_do_loop_statement)) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (number_literal)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (if_statement (parenthesized_expression (logical_expression (identifier))) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (else_clause (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier)))) (end_if_statement)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (ERROR (UNEXPECTED '|')) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier)))) (comment) (comment) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (ERROR (UNEXPECTED '|')) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier)))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (do_loop_statement (loop_control_expression (identifier) (identifier) (identifier)) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier))))) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier))))) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier)) right: (identifier))) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (identifier)) right: (identifier))) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier))))) (comment) (comment) (comment) (do_loop_statement (loop_control_expression (identifier) (identifier) (math_expression left: (identifier) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (math_expression left: (math_expression left: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (identifier)) right: (number_literal)) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (number_literal))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (math_expression left: (math_expression left: (identifier) right: (number_literal)) right: (parenthesized_expression (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) right: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (identifier)) (comment) (ERROR (UNEXPECTED '|')) right: (complex_literal (identifier) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (math_expression left: (math_expression left: (math_expression left: (call_expression (number_literal) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) (comment) (ERROR (UNEXPECTED '|')) right: (math_expression left: (call_expression (number_literal) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier) (identifier))))) (comment) (ERROR (UNEXPECTED '|')) right: (math_expression left: (parenthesized_expression (identifier)) right: (call_expression (identifier) (argument_list (identifier) (identifier))))) (comment) (ERROR (UNEXPECTED '|')) right: (math_expression left: (parenthesized_expression (identifier)) right: (call_expression (identifier) (argument_list (identifier) (identifier)))))) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (parenthesized_expression (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (call_expression (number_literal) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier) (identifier)))))))) (comment) (comment) (comment) (if_statement (parenthesized_expression (identifier)) (ERROR (UNEXPECTED '|')) (assignment_statement left: (complex_literal (identifier) (identifier)) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier) (identifier))))))) (if_statement (parenthesized_expression (identifier)) (ERROR (UNEXPECTED '|')) (assignment_statement left: (complex_literal (identifier) (identifier)) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (identifier) (identifier))))))) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (identifier) (identifier))))) (comment) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (math_expression left: (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (identifier)) (ERROR (UNEXPECTED '|')) right: (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (identifier))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (identifier)))) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (parenthesized_expression (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier) (identifier)))))) right: (call_expression (identifier) (argument_list (number_literal))))) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (identifier)) (ERROR (UNEXPECTED '|')) right: (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (identifier))))) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (call_expression (identifier) (argument_list (number_literal))))) (comment) (comment) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (assignment_statement left: (identifier) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (math_expression left: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (number_literal)) right: (identifier)) right: (parenthesized_expression (math_expression left: (identifier) right: (call_expression (identifier) (argument_list (identifier) (identifier)))))) right: (call_expression (identifier) (argument_list (number_literal))))) (end_do_loop_statement)) (comment) (end_do_loop_statement)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (subroutine_call subroutine: (identifier) (argument_list (string_literal) (string_literal) (string_literal) (identifier) (ERROR (UNEXPECTED '|')) (string_literal) (identifier) (identifier) (string_literal) (identifier) (identifier) (identifier))) (comment) (comment) (comment) (do_loop_statement (loop_control_expression (identifier) (identifier) (identifier)) (do_loop_statement (loop_control_expression (identifier) (math_expression left: (identifier) right: (number_literal)) (math_expression left: (identifier) right: (number_literal))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) (ERROR (UNEXPECTED '|')) right: (call_expression (number_literal) (ERROR (UNEXPECTED '_')) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) (ERROR (UNEXPECTED '|') (UNEXPECTED '_')) right: (parenthesized_expression (math_expression left: (identifier) right: (number_literal)) (ERROR (identifier)))))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) (ERROR (UNEXPECTED '|')) right: (call_expression (number_literal) (ERROR (UNEXPECTED '_')) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (math_expression left: (number_literal) right: (number_literal)) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))))))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier))) (ERROR (UNEXPECTED '|')) right: (call_expression (number_literal) (ERROR (UNEXPECTED '_')) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))))))))) (end_do_loop_statement)) (comment) (comment) (comment) (comment) (ERROR) (call_expression (parenthesized_expression (identifier)) (ERROR (UNEXPECTED '|')) (argument_list (identifier))) (if_statement (parenthesized_expression (relational_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (end_if_statement)) (comment) (if_statement (parenthesized_expression (relational_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (end_if_statement)) (if_statement (parenthesized_expression (relational_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (end_if_statement)) (if_statement (parenthesized_expression (relational_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (number_literal) right: (number_literal)) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))))))))) (end_if_statement)) (if_statement (parenthesized_expression (relational_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))))))))) (end_if_statement)) (ERROR) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (number_literal) right: (number_literal)) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))))))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (identifier) (identifier)))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))))))))) (ERROR) (comment) (comment) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (math_expression left: (number_literal) right: (number_literal)) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))))))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (identifier) (identifier) (identifier))) right: (math_expression left: (number_literal) (ERROR (UNEXPECTED '|')) right: (parenthesized_expression (math_expression left: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier)))) right: (math_expression left: (number_literal) right: (call_expression (identifier) (argument_list (math_expression left: (identifier) right: (number_literal)) (identifier))))))))) (end_do_loop_statement)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (end_subroutine_statement (name))) (comment) (subroutine (subroutine_statement name: (name) parameters: (parameters (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (implicit_statement (none)) (comment) (comment) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier) (identifier) (identifier) (identifier) (identifier)) (variable_declaration (intrinsic_type) (type_qualifier) (call_expression (identifier) (argument_list (extent_specifier (identifier) (identifier)) (extent_specifier (identifier) (identifier))))) (variable_declaration (intrinsic_type) (type_qualifier) (call_expression (identifier) (argument_list (extent_specifier (identifier) (identifier)) (extent_specifier (identifier) (identifier))))) (comment) (comment) (variable_declaration (intrinsic_type) (identifier) (identifier)) (variable_declaration (intrinsic_type) (identifier)) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (assignment_statement left: (call_expression (identifier) (argument_list (number_literal))) (ERROR (UNEXPECTED '|')) right: (array_literal (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal)))) (comment) (comment) (comment) (comment) (do_loop_statement (loop_control_expression (identifier) (identifier) (math_expression left: (identifier) right: (number_literal))) (do_loop_statement (loop_control_expression (identifier) (identifier) (identifier)) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (identifier) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (call_expression (identifier) (argument_list (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier)) right: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier))))))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (parenthesized_expression (number_literal)) right: (call_expression (identifier) (argument_list (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier)) right: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier))))))))))) (end_do_loop_statement)) (comment) (end_do_loop_statement)) (comment) (end_subroutine_statement (name))) (comment) (subroutine (subroutine_statement name: (name) parameters: (parameters (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (implicit_statement (none)) (comment) (comment) (comment) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier) (identifier) (identifier) (identifier) (identifier)) (variable_declaration (intrinsic_type) (type_qualifier) (call_expression (identifier) (argument_list (extent_specifier (identifier) (identifier)) (extent_specifier (identifier) (identifier))))) (variable_declaration (intrinsic_type) (type_qualifier) (call_expression (identifier) (argument_list (extent_specifier (identifier) (identifier)) (extent_specifier (identifier) (identifier))))) (comment) (comment) (variable_declaration (intrinsic_type) (identifier) (identifier)) (variable_declaration (intrinsic_type) (identifier)) (variable_declaration (intrinsic_type) (type_qualifier) (assignment_statement left: (call_expression (identifier) (argument_list (number_literal))) (ERROR (UNEXPECTED '|')) right: (array_literal (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal)))) (comment) (comment) (comment) (comment) (do_loop_statement (loop_control_expression (identifier) (identifier) (math_expression left: (identifier) right: (number_literal))) (do_loop_statement (loop_control_expression (identifier) (identifier) (identifier)) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (identifier) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (call_expression (identifier) (argument_list (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier)) right: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier))))))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (parenthesized_expression (number_literal)) right: (call_expression (identifier) (argument_list (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier)) right: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier))))))))))) (end_do_loop_statement)) (comment) (end_do_loop_statement)) (comment) (end_subroutine_statement (name))) (comment) (subroutine (subroutine_statement name: (name) parameters: (parameters (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier) (identifier))) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (implicit_statement (none)) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier) (identifier) (identifier) (identifier) (identifier)) (variable_declaration (intrinsic_type) (type_qualifier) (call_expression (identifier) (argument_list (extent_specifier (identifier) (identifier)) (extent_specifier (identifier) (identifier)))) (call_expression (identifier) (argument_list (extent_specifier (identifier) (identifier))))) (variable_declaration (intrinsic_type) (type_qualifier) (call_expression (identifier) (argument_list (extent_specifier (identifier) (identifier)) (extent_specifier (identifier) (identifier))))) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (assignment_statement left: (call_expression (identifier) (argument_list (number_literal) (number_literal))) right: (call_expression (identifier) (argument_list (ERROR (UNEXPECTED '|')) (array_literal (number_literal) (unary_expression argument: (number_literal)) (unary_expression argument: (number_literal)) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (unary_expression argument: (number_literal)) (number_literal) (unary_expression argument: (number_literal)) (ERROR (UNEXPECTED '|')) (number_literal) (unary_expression argument: (number_literal)) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (unary_expression argument: (number_literal)) (unary_expression argument: (number_literal)) (number_literal) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (unary_expression argument: (number_literal)) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (number_literal) (unary_expression argument: (number_literal)) (number_literal) (ERROR (UNEXPECTED '|')) (number_literal) (unary_expression argument: (number_literal)) (unary_expression argument: (number_literal)) (number_literal) (ERROR (UNEXPECTED '|')) (unary_expression argument: (number_literal)) (unary_expression argument: (number_literal)) (number_literal) (unary_expression argument: (number_literal))) (ERROR (UNEXPECTED '|')) (array_literal (number_literal) (number_literal)))))) (variable_declaration (intrinsic_type) (call_expression (identifier) (argument_list (number_literal))) (identifier) (identifier)) (variable_declaration (intrinsic_type) (identifier) (identifier) (identifier)) (comment) (do_loop_statement (loop_control_expression (identifier) (identifier) (identifier)) (do_loop_statement (loop_control_expression (identifier) (identifier) (math_expression left: (identifier) right: (number_literal))) (if_statement (parenthesized_expression (relational_expression left: (call_expression (identifier) (argument_list (identifier))) right: (number_literal))) (comment) (comment) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (identifier)))))) (comment) (do_loop_statement (loop_control_expression (identifier) (number_literal) (number_literal)) (assignment_statement left: (call_expression (identifier) (argument_list (identifier))) right: (call_expression (identifier) (argument_list (math_expression left: (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (number_literal) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (number_literal) (identifier))) right: (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (number_literal) (identifier))) right: (parenthesized_expression (math_expression left: (identifier) right: (number_literal))))) (ERROR (UNEXPECTED '|')) right: (math_expression left: (complex_literal (number_literal) (identifier)) right: (parenthesized_expression (math_expression left: (identifier) right: (number_literal)))))))) (end_do_loop_statement)) (comment) (comment) (assignment_statement left: (identifier) right: (call_expression (identifier) (argument_list (call_expression (identifier) (argument_list (identifier) (identifier)))))) (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (call_expression (identifier) (argument_list (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier)) right: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier)))))))))) (ERROR (UNEXPECTED '|') (math_expression left: (call_expression (unary_expression argument: (identifier)) (argument_list (number_literal))) right: (call_expression (identifier) (argument_list (math_expression left: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier)) right: (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (call_expression (identifier) (argument_list (math_expression left: (call_expression (identifier) (argument_list (number_literal))) right: (identifier)))))))))) (else_clause (assignment_statement left: (call_expression (identifier) (argument_list (identifier) (identifier))) right: (number_literal))) (end_if_statement)) (end_do_loop_statement)) (end_do_loop_statement)) (end_subroutine_statement (name))))