(translation_unit (comment) (subroutine (subroutine_statement name: (name) parameters: (parameters (identifier) (identifier))) (comment) (comment) (comment) (comment) (comment) (implicit_statement (none)) (comment) (comment) (variable_declaration (intrinsic_type) (size (argument_list (keyword_argument name: (identifier) value: (assumed_size)))) (type_qualifier) (ERROR (ERROR (UNEXPECTED '|') (comment)) (identifier) (ERROR) (call_expression (identifier) (argument_list (identifier))) (UNEXPECTED '|') (comment) (comment) (comment)) (identifier)) (variable_declaration (intrinsic_type) (identifier)) (variable_declaration (intrinsic_type) (size (argument_list (keyword_argument name: (identifier) value: (number_literal)))) (identifier)) (comment) (comment) (variable_declaration (intrinsic_type) (type_qualifier) (identifier)) (comment) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (comment) (comment) (if_statement (parenthesized_expression (relational_expression left: (call_expression (identifier) (argument_list (identifier))) right: (number_literal))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (subroutine_call subroutine: (identifier) (argument_list (string_literal))) (end_if_statement)) (assignment_statement left: (identifier) right: (string_literal)) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal)) (output_item_list (call_expression (identifier) (argument_list (identifier))))) (comment) (comment) (subroutine_call subroutine: (identifier) (argument_list (identifier))) (comment) (comment) (inquire_statement (keyword_argument name: (identifier) value: (call_expression (identifier) (argument_list (identifier)))) (keyword_argument name: (identifier) value: (identifier))) (comment) (comment) (comment) (if_statement (parenthesized_expression (identifier)) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal)) (output_item_list (call_expression (identifier) (argument_list (identifier))))) (assignment_statement left: (identifier) right: (identifier)) (else_clause (comment) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|') (parenthesized_expression (identifier))) (subroutine_call subroutine: (identifier) (argument_list (string_literal)))) (end_if_statement)) (comment) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (end_subroutine_statement (name))))