(translation_unit (subroutine (subroutine_statement name: (name)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (use_statement (module_name) (included_items (identifier))) (use_statement (module_name)) (implicit_statement (none)) (variable_declaration (intrinsic_type) (size (argument_list (keyword_argument name: (identifier) value: (number_literal)))) (identifier) (identifier)) (variable_declaration (intrinsic_type) (identifier) (identifier)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (number_literal) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|') (parenthesized_expression (identifier))) (subroutine_call subroutine: (identifier) (argument_list (identifier) (number_literal) (identifier) (number_literal) (identifier) (identifier))) (open_statement (unit_identifier (number_literal)) (keyword_argument name: (identifier) value: (call_expression (identifier) (argument_list (identifier))))) (comment) (comment) (read_statement (unit_identifier (number_literal)) (keyword_argument name: (identifier) value: (identifier))) (comment) (comment) (file_position_statement (unit_identifier (parenthesized_expression (number_literal)))) (assignment_statement left: (identifier) right: (string_literal)) (do_loop_statement (read_statement (unit_identifier (number_literal)) (format_identifier (string_literal)) (keyword_argument name: (identifier) value: (identifier)) (input_item_list (identifier))) (if_statement (parenthesized_expression (relational_expression left: (identifier) right: (number_literal))) (keyword_statement)) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal)) (output_item_list (call_expression (identifier) (argument_list (identifier))))) (end_do_loop_statement)) (close_statement (unit_identifier (number_literal))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (end_subroutine_statement (name))))