8 lines
168 B
Text
8 lines
168 B
Text
|
let r1 = ref (ref "KO")
|
||
|
let r2 = ref "KO"
|
||
|
let test =
|
||
|
r1 := r2;
|
||
|
r2 := "OK";
|
||
|
print_string ("This test is ");
|
||
|
print_string (!!r1);
|
||
|
print_string (".\n")
|