1 files changed, 11 insertions, 3 deletions
diff --git a/testsuite/tests/tmc/partial_application.ml b/testsuite/tests/tmc/partial_application.ml
index 7721416f82..35ddd35e8b 100644
--- a/testsuite/tests/tmc/partial_application.ml
+++ b/testsuite/tests/tmc/partial_application.ml
@@ -1,6 +1,6 @@
-(* TEST
-   * bytecode
-   * native
+(* TEST_BELOW
+(* Blank lines added here to preserve locations. *)
+
 *)
 type t = Ret of (unit -> unit) | Next of t
 
@@ -17,3 +17,11 @@ let () =
   match g ~first:true with
   | Next (Ret f) -> f ()
   | _ -> assert false
+
+(* TEST
+ {
+   bytecode;
+ }{
+   native;
+ }
+*)