24 lines
412 B
Text
24 lines
412 B
Text
open! Base
|
|
|
|
(* first test that we only allow global elements *)
|
|
let local_id (local_ x) = x;;
|
|
|
|
let k = local_id 42 in
|
|
Array.create_local ~len:10 k
|
|
|
|
[%%expect
|
|
{|
|
|
Line _, characters _-_:
|
|
Error: This value escapes its region
|
|
|}]
|
|
;;
|
|
|
|
(* then check that the array is indeed local *)
|
|
let arr = Array.create_local ~len:10 42 in
|
|
ref arr
|
|
|
|
[%%expect
|
|
{|
|
|
Line _, characters _-_:
|
|
Error: This value escapes its region
|
|
|}]
|