Examples/test-suite/octave/li_cpointer_runme.m


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

# do not dump Octave core
if exist("crash_dumps_octave_core", "builtin")
  crash_dumps_octave_core(0);
endif

li_cpointer


p = new_intp();
intp_assign(p,3);

if (intp_value(p) != 3)
    error("failed");
endif

delete_intp(p);