================================================================================
Goto statement
================================================================================

goto, skip_section

--------------------------------------------------------------------------------

(source_file
  (goto_statement
    (identifier)))

================================================================================
Label
================================================================================

skip_section:
x = 1

--------------------------------------------------------------------------------

(source_file
  (label
    (identifier))
  (assignment
    (identifier)
    (number_literal)))

================================================================================
Return with value
================================================================================

return, result

--------------------------------------------------------------------------------

(source_file
  (return_statement
    (identifier)))

================================================================================
Return without value
================================================================================

return

--------------------------------------------------------------------------------

(source_file
  (return_statement))

================================================================================
Common block
================================================================================

common shared_data, x, y, z

--------------------------------------------------------------------------------

(source_file
  (common_block
    name: (identifier)
    (identifier)
    (identifier)
    (identifier)))

================================================================================
Batch include
================================================================================

@utilities

--------------------------------------------------------------------------------

(source_file
  (batch_include
    (identifier)))

================================================================================
Compound assignment operators
================================================================================

x += 1
y -= 2.0
z *= n
arr[i] /= total

--------------------------------------------------------------------------------

(source_file
  (assignment
    left: (identifier)
    right: (number_literal))
  (assignment
    left: (identifier)
    right: (number_literal))
  (assignment
    left: (identifier)
    right: (identifier))
  (assignment
    left: (subscript_expression
      (identifier)
      (argument_list
        (identifier)))
    right: (identifier)))

================================================================================
Ampersand statement separator
================================================================================

a = 1 & b = 2 & print, a + b

--------------------------------------------------------------------------------

(source_file
  (assignment
    left: (identifier)
    right: (number_literal))
  (assignment
    left: (identifier)
    right: (number_literal))
  (procedure_call
    (identifier)
    (argument_list
      (binary_expression
        left: (identifier)
        right: (identifier)))))
