==================
pointer_cast
==================

program()
var
  c: ^Char
  b: ^Word8

begin
  b := cast(c: ^Word8);
  c := cast(b: ^Char)
end.

---

(source_file
  (program_declaration
    (var_section
      (variable_declaration
        (identifier_definition
          (identifier))
        (pointer_type
          (identifier)))
      (variable_declaration
        (identifier_definition
          (identifier))
        (pointer_type
          (identifier))))
    (assignment_statement
      (identifier)
      (cast_expression
        (identifier)
        (pointer_type
          (identifier))))
    (assignment_statement
      (identifier)
      (cast_expression
        (identifier)
        (pointer_type
          (identifier))))))