1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
li_cmalloc p = malloc_int(); free_int(p); ok = 0; try p = calloc_int(-1); free_int(p); catch ok = 1; end_try_catch if (ok != 1) error endif