summaryrefslogtreecommitdiff
path: root/testsuite/tests/typing-modules-bugs/pr7112_bad.ml
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/typing-modules-bugs/pr7112_bad.ml')
-rw-r--r--testsuite/tests/typing-modules-bugs/pr7112_bad.ml20
1 files changed, 14 insertions, 6 deletions
diff --git a/testsuite/tests/typing-modules-bugs/pr7112_bad.ml b/testsuite/tests/typing-modules-bugs/pr7112_bad.ml
index ffc634901f..20738024e1 100644
--- a/testsuite/tests/typing-modules-bugs/pr7112_bad.ml
+++ b/testsuite/tests/typing-modules-bugs/pr7112_bad.ml
@@ -1,9 +1,9 @@
-(* TEST
-flags = " -w -a "
-ocamlc_byte_exit_status = "2"
-* setup-ocamlc.byte-build-env
-** ocamlc.byte
-*** check-ocamlc.byte-output
+(* TEST_BELOW
+(* Blank lines added here to preserve locations. *)
+
+
+
+
*)
module A = struct module type S module S = struct end end
@@ -11,3 +11,11 @@ module F (_ : sig end) = struct module type S module S = A.S end
module M = struct end
module N = M
module G (X : F(N).S) : A.S = X
+
+(* TEST
+ flags = " -w -a ";
+ ocamlc_byte_exit_status = "2";
+ setup-ocamlc.byte-build-env;
+ ocamlc.byte;
+ check-ocamlc.byte-output;
+*)