1 files changed, 62 insertions, 28 deletions
diff --git a/testsuite/tests/backtrace/backtrace_dynlink.ml b/testsuite/tests/backtrace/backtrace_dynlink.ml
index 3252f53f67..7caf291801 100644
--- a/testsuite/tests/backtrace/backtrace_dynlink.ml
+++ b/testsuite/tests/backtrace/backtrace_dynlink.ml
@@ -1,32 +1,32 @@
-(* TEST
+(* TEST_BELOW
+(* Blank lines added here to preserve locations. *)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 
-include dynlink
-
-readonly_files = "backtrace_dynlink_plugin.ml"
-
-libraries = ""
-
-* shared-libraries
-** native-dynlink
-*** setup-ocamlopt.byte-build-env
-**** ocamlopt.byte
-module = "backtrace_dynlink.ml"
-flags = "-g"
-**** ocamlopt.byte
-program = "backtrace_dynlink_plugin.cmxs"
-flags = "-shared -g"
-all_modules = "backtrace_dynlink_plugin.ml"
-**** ocamlopt.byte
-program = "${test_build_directory}/main.exe"
-libraries = "dynlink"
-all_modules = "backtrace_dynlink.cmx"
-***** run
-ocamlrunparam += ",b=1"
-****** no-flambda
-******* check-program-output
-****** flambda
-reference = "${test_source_directory}/backtrace_dynlink.flambda.reference"
-******* check-program-output
 *)
 
 (* test for backtrace and stack unwinding with dynlink. *)
@@ -44,3 +44,37 @@ let ()  =
   | exn ->
      Printexc.to_string exn |> print_endline;
      print_endline "ERROR"
+
+(* TEST
+ include dynlink;
+ readonly_files = "backtrace_dynlink_plugin.ml";
+ libraries = "";
+ shared-libraries;
+ native-dynlink;
+ setup-ocamlopt.byte-build-env;
+ {
+   module = "backtrace_dynlink.ml";
+   flags = "-g";
+   ocamlopt.byte;
+ }{
+   program = "backtrace_dynlink_plugin.cmxs";
+   flags = "-shared -g";
+   all_modules = "backtrace_dynlink_plugin.ml";
+   ocamlopt.byte;
+ }{
+   program = "${test_build_directory}/main.exe";
+   libraries = "dynlink";
+   all_modules = "backtrace_dynlink.cmx";
+   ocamlopt.byte;
+   ocamlrunparam += ",b=1";
+   run;
+   {
+     no-flambda;
+     check-program-output;
+   }{
+     reference = "${test_source_directory}/backtrace_dynlink.flambda.reference";
+     flambda;
+     check-program-output;
+   }
+ }
+*)