blob: 74cbe51446ec6b59774cbce6a25693a7b426fb2c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(* TEST
*)
(* PR#5115 - multiple evaluation of bigarray expr *)
open Bigarray
let f y0 =
Printf.printf "***EXEC***\n%!";
y0
let _ =
let y = Array1.of_array float64 fortran_layout [| 1. |] in
ignore ((f y).{1});
(f y).{1} <- 3.14
|