summaryrefslogtreecommitdiff
path: root/testsuite/tests/asmcomp/poll_attr_prologue.ml
diff options
context:
space:
mode:
authorNick Barnes <nick@tarides.com>2023-05-02 21:16:12 +0100
committerNick Barnes <nick@tarides.com>2023-05-02 21:16:12 +0100
commitd3a5c923939a1fc03cc14c005d61210d8c3bd546 (patch)
tree5459de2b7b6cbaa1167d18224f1ea5d256e2f3f7 /testsuite/tests/asmcomp/poll_attr_prologue.ml
parentad111da274b58d82249f92b8c79ee252bf25525b (diff)
parent23dab79a4e42856aa33816b9c79c3d4d79959cb9 (diff)
downloadocaml-d3a5c923939a1fc03cc14c005d61210d8c3bd546.tar.gz
Merge branch 'trunk' into nick-get-copy
Diffstat (limited to 'testsuite/tests/asmcomp/poll_attr_prologue.ml')
-rw-r--r--testsuite/tests/asmcomp/poll_attr_prologue.ml34
1 files changed, 24 insertions, 10 deletions
diff --git a/testsuite/tests/asmcomp/poll_attr_prologue.ml b/testsuite/tests/asmcomp/poll_attr_prologue.ml
index 41b3f6b92f..4e32b79f40 100644
--- a/testsuite/tests/asmcomp/poll_attr_prologue.ml
+++ b/testsuite/tests/asmcomp/poll_attr_prologue.ml
@@ -1,16 +1,30 @@
-(* TEST
- * setup-ocamlopt.byte-build-env
- ** ocamlopt.byte
-ocamlopt_byte_exit_status = "2"
- *** check-ocamlopt.byte-output
-
- * setup-ocamlopt.opt-build-env
- ** ocamlopt.opt
-ocamlopt_opt_exit_status = "2"
- *** check-ocamlopt.opt-output
+(* TEST_BELOW
+(* Blank lines added here to preserve locations. *)
+
+
+
+
+
+
+
+
*)
let[@poll error] rec c x l =
match l with
| [] -> 0
| _ :: tl -> (c[@tailcall]) (x+1) tl
+
+(* TEST
+ {
+ setup-ocamlopt.byte-build-env;
+ ocamlopt_byte_exit_status = "2";
+ ocamlopt.byte;
+ check-ocamlopt.byte-output;
+ }{
+ setup-ocamlopt.opt-build-env;
+ ocamlopt_opt_exit_status = "2";
+ ocamlopt.opt;
+ check-ocamlopt.opt-output;
+ }
+*)