File tree Expand file tree Collapse file tree 2 files changed +17
-1
lines changed
testsuite/tests/typing-layouts Expand file tree Collapse file tree 2 files changed +17
-1
lines changed Original file line number Diff line number Diff line change @@ -4031,7 +4031,7 @@ signed_constant:
4031
4031
| PLUS FLOAT { let (f, m) = $ 2 in
4032
4032
Constant. value (Pconst_float (f, m)) }
4033
4033
| PLUS HASH_INT { unboxed_int $ sloc $ loc($ 2 ) Positive $ 2 }
4034
- | PLUS HASH_FLOAT { unboxed_float $ sloc Negative $ 2 }
4034
+ | PLUS HASH_FLOAT { unboxed_float $ sloc Positive $ 2 }
4035
4035
;
4036
4036
4037
4037
/* Identifiers and long identifiers */
Original file line number Diff line number Diff line change @@ -44,3 +44,19 @@ Line 4, characters 6-9:
44
44
^^^
45
45
Error : Unbound value add
46
46
|}];;
47
+
48
+ let x = #3.0
49
+ let x = + #3.0
50
+ let x = - #3.0
51
+
52
+ let x = #3L
53
+ let x = + #3L
54
+ let x = - #3L
55
+
56
+ [%% expect{|
57
+ Line 1 , characters 8-12 :
58
+ 1 | let x = #3.0
59
+ ^^^^
60
+ Error : Unboxed float literals aren't supported yet.
61
+ | }]
62
+
You can’t perform that action at this time.
0 commit comments