This repository has been archived on 2024-01-18. You can view files and clone it, but cannot push or open issues or pull requests.
compilation/flap/tests/02-Interpreter/40-allocate-05.eval.hopix.human-readable
2023-10-25 15:16:53 +02:00

8 lines
No EOL
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")