Test evaluation order for for loops (#426)

lthls · web-flow · commit f7d8fcc68f2b · 2021-05-04T17:15:36.000+02:00
diff --git a/testsuite/tests/basic/eval_order_7.ml b/testsuite/tests/basic/eval_order_7.ml
@@ -0,0 +1,11 @@
+(* TEST *)
+
+let p i x =
+  print_int i;
+  print_newline ();
+  x
+
+let _ =
+  for i = (p 13 0) to (p 25 3) do
+    p i ()
+  done
diff --git a/testsuite/tests/basic/eval_order_7.reference b/testsuite/tests/basic/eval_order_7.reference
@@ -0,0 +1,6 @@
+13
+25
+0
+1
+2
+3

-Original file line number
+Diff line change
@@ @@ -0,0 +1,6 @@ @@
 +13
 +25
 +0
 +1
 +2
 +3