diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2011-07-20 09:17:07 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2011-07-20 09:17:07 +0000 |
| commit | c91db736b18c7ed0ec81596b76874f5423d5d331 (patch) | |
| tree | a967edfcd254aa6844c44e81ea33596a82b7bf87 /testsuite/tests/lib-bigarray/pr5115.ml | |
| parent | 46d5420ca9c695738f7a0baa527d3591d95f067a (diff) | |
| download | ocaml-c91db736b18c7ed0ec81596b76874f5423d5d331.tar.gz | |
merge changes from 3.12.0 to 3.12.1
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@11123 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'testsuite/tests/lib-bigarray/pr5115.ml')
| -rw-r--r-- | testsuite/tests/lib-bigarray/pr5115.ml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/lib-bigarray/pr5115.ml b/testsuite/tests/lib-bigarray/pr5115.ml new file mode 100644 index 0000000000..69cdca64d9 --- /dev/null +++ b/testsuite/tests/lib-bigarray/pr5115.ml @@ -0,0 +1,13 @@ +(* 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 + (f y).{1}; + (f y).{1} <- 3.14 + |