1 files changed, 37 insertions, 15 deletions
diff --git a/testsuite/tests/backtrace/pr2195.ml b/testsuite/tests/backtrace/pr2195.ml
index e0442a3405..e45ea55d90 100644
--- a/testsuite/tests/backtrace/pr2195.ml
+++ b/testsuite/tests/backtrace/pr2195.ml
@@ -1,18 +1,18 @@
-(* TEST
-   flags += "-g"
-   exit_status = "2"
-   * bytecode
-     ocamlrunparam += ",b=0"
-     reference = "${test_source_directory}/pr2195-nolocs.byte.reference"
-   * bytecode
-     ocamlrunparam += ",b=1"
-     reference = "${test_source_directory}/pr2195-nolocs.byte.reference"
-   * bytecode
-     ocamlrunparam += ",b=2"
-     reference = "${test_source_directory}/pr2195-locs.byte.reference"
-   * native
-     reference = "${test_source_directory}/pr2195.opt.reference"
-     compare_programs = "false"
+(* TEST_BELOW
+(* Blank lines added here to preserve locations. *)
+
+
+
+
+
+
+
+
+
+
+
+
+
 *)
 
 let () =
@@ -27,3 +27,25 @@ let () =
     (* The message is platform-specific, so convert the exception to Exit *)
     let bt = Printexc.get_raw_backtrace () in
     Printexc.raise_with_backtrace Exit bt
+
+(* TEST
+ flags += "-g";
+ exit_status = "2";
+ {
+   ocamlrunparam += ",b=0";
+   reference = "${test_source_directory}/pr2195-nolocs.byte.reference";
+   bytecode;
+ }{
+   ocamlrunparam += ",b=1";
+   reference = "${test_source_directory}/pr2195-nolocs.byte.reference";
+   bytecode;
+ }{
+   ocamlrunparam += ",b=2";
+   reference = "${test_source_directory}/pr2195-locs.byte.reference";
+   bytecode;
+ }{
+   reference = "${test_source_directory}/pr2195.opt.reference";
+   compare_programs = "false";
+   native;
+ }
+*)