aboutsummaryrefslogtreecommitdiff
path: root/testsuite/fail_compilation/assign_const_to_pointer.elna
blob: c3d92303058655caa294c15a91585648e995831a (plain)
1
2
3
4
5
6
7
var
  c: const Int
  p: Pointer

begin
  p := @c (* @Error Expected type 'Pointer', but got '\^const Int' *)
end.