diff options
Diffstat (limited to 'testsuite/tests/typing-objects/pr6123_bad.ml.reference')
| -rw-r--r-- | testsuite/tests/typing-objects/pr6123_bad.ml.reference | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/typing-objects/pr6123_bad.ml.reference b/testsuite/tests/typing-objects/pr6123_bad.ml.reference new file mode 100644 index 0000000000..a7e48182e3 --- /dev/null +++ b/testsuite/tests/typing-objects/pr6123_bad.ml.reference @@ -0,0 +1,8 @@ + +# Characters 253-257: + let args = List.map (fun ty -> new argument(self, ty)) args_ty in + ^^^^ +Error: This expression has type < arguments : 'b; .. > as 'a + but an expression was expected of type 'a + Self type cannot escape its class +# |