test-pgm-jcf.mlw 197 Bytes
Newer Older
1

2
3
4
5
6
7
8
9
let foo (x : ref int) (y : ref int) = 
  x := 1;
  y := 2

let test () =
  let x = ref 0 in
  let y = x in
  foo x y
10

11
12
(*
Local Variables: 
13
compile-command: "unset LANG; make -C .. testl"
14
15
End: 
*)