path: root/testsuite/fail_compilation/opaque_pointer_arithmetic.elna

program()
type
  Handle = extern

var
  p: ^Handle

begin
  p := p + 1 (* @Error Opaque type 'Handle' cannot be used as an element type in pointer arithmetic *)
end.