3 files changed, 40 insertions, 18 deletions
diff --git a/testsuite/tests/basic-modules/anonymous.ml b/testsuite/tests/basic-modules/anonymous.ml
index 20e67cca17..5c6affca9e 100644
--- a/testsuite/tests/basic-modules/anonymous.ml
+++ b/testsuite/tests/basic-modules/anonymous.ml
@@ -1,19 +1,19 @@
-(* TEST
-flags = "-c -nostdlib -nopervasives -dlambda -dno-unique-ids"
-* setup-ocamlc.byte-build-env
-** ocamlc.byte
-*** check-ocamlc.byte-output
-compiler_reference = "${test_source_directory}/anonymous.ocamlc.reference"
-
-* setup-ocamlopt.byte-build-env
-** ocamlopt.byte
-*** no-flambda
-**** check-ocamlopt.byte-output
-compiler_reference = "${test_source_directory}/anonymous.ocamlopt.reference"
-*** flambda
-**** check-ocamlc.byte-output
-compiler_reference =
-   "${test_source_directory}/anonymous.ocamlopt.flambda.reference"
+(* TEST_BELOW
+(* Blank lines added here to preserve locations. *)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 *)
 
 module _ = struct
@@ -53,3 +53,25 @@ end
 let drop _ = ()
 
 let () = drop s.cell
+
+(* TEST
+ flags = "-c -nostdlib -nopervasives -dlambda -dno-unique-ids";
+ {
+   setup-ocamlc.byte-build-env;
+   ocamlc.byte;
+   compiler_reference = "${test_source_directory}/anonymous.ocamlc.reference";
+   check-ocamlc.byte-output;
+ }{
+   setup-ocamlopt.byte-build-env;
+   ocamlopt.byte;
+   {
+     no-flambda;
+     compiler_reference = "${test_source_directory}/anonymous.ocamlopt.reference";
+     check-ocamlopt.byte-output;
+   }{
+     flambda;
+     compiler_reference = "${test_source_directory}/anonymous.ocamlopt.flambda.reference";
+     check-ocamlc.byte-output;
+   }
+ }
+*)
diff --git a/testsuite/tests/basic-modules/main.ml b/testsuite/tests/basic-modules/main.ml
index bd6d4ff344..8abcf6c3a8 100644
--- a/testsuite/tests/basic-modules/main.ml
+++ b/testsuite/tests/basic-modules/main.ml
@@ -1,5 +1,5 @@
 (* TEST
-  modules = "offset.ml pr6726.ml pr7427.ml pr4008.ml"
+ modules = "offset.ml pr6726.ml pr7427.ml pr4008.ml";
 *)
 
 (* PR#6435 *)
diff --git a/testsuite/tests/basic-modules/recursive_module_evaluation_errors.ml b/testsuite/tests/basic-modules/recursive_module_evaluation_errors.ml
index b0fdd12c31..0db608aef6 100644
--- a/testsuite/tests/basic-modules/recursive_module_evaluation_errors.ml
+++ b/testsuite/tests/basic-modules/recursive_module_evaluation_errors.ml
@@ -1,5 +1,5 @@
 (* TEST
-   * expect
+ expect;
 *)
 
 module rec A: sig val x: int end = struct let x = B.x end