testsuite/compilable/const_pointer_conversion.elna


1
2
3
4
5
6
7
8
9
10
11
12
13
14

var
  x: Int
  c: const Int
  p: ^Int
  pc: ^const Int
  v: Pointer
  cv: const Pointer := nil
  cv2: const Pointer := @x
  cv3: const Pointer := @c

begin
  v := p;
  v := @x
end.