path: root/testsuite/compilable/pointer_cast.elna

var
  c: ^Char := nil
  p: Pointer := nil

begin
  p := c;
  c := p
end.