File tree Expand file tree Collapse file tree 4 files changed +30
-1
lines changed Expand file tree Collapse file tree 4 files changed +30
-1
lines changed Original file line number Diff line number Diff line change @@ -788,7 +788,7 @@ optLiteralValueSpfn:
788
788
| EQUALS declExpr
789
789
{ Some($2) }
790
790
791
- | EQUALS OBLOCKBEGIN declExpr oblockend
791
+ | EQUALS OBLOCKBEGIN declExpr oblockend opt_ODECLEND
792
792
{ Some($3) }
793
793
794
794
Original file line number Diff line number Diff line change @@ -2155,6 +2155,12 @@ module TypecheckTests =
2155
2155
fsc cfg " %s --target:library -o:pos32.dll --warnaserror" cfg.fsc_ flags [ " pos32.fs" ]
2156
2156
peverify cfg " pos32.dll"
2157
2157
2158
+ [<Test>]
2159
+ let ``sigs pos33`` () =
2160
+ let cfg = testConfig " typecheck/sigs"
2161
+ fsc cfg " %s --target:library -o:pos33.dll --warnaserror" cfg.fsc_ flags [ " pos33.fsi" ; " pos33.fs" ]
2162
+ peverify cfg " pos33.dll"
2163
+
2158
2164
[<Test>]
2159
2165
let ``sigs pos23`` () =
2160
2166
let cfg = testConfig " typecheck/sigs"
Original file line number Diff line number Diff line change
1
+ module Pos33
2
+
3
+ let x = 1
4
+ [<Literal>]
5
+ let y = 1
6
+ let z = 1
7
+ [<Literal>]
8
+ let w = " w"
9
+ let q = " q"
10
+ [<Literal>]
11
+ let u = " u"
Original file line number Diff line number Diff line change
1
+ module Pos33
2
+
3
+ val x : int
4
+ [<Literal>]
5
+ val y : int = 1
6
+ val z : int
7
+ [<Literal>]
8
+ val w : string = "w "
9
+ val q : string
10
+ [<Literal>]
11
+ val u : string =
12
+ " u"
You can’t perform that action at this time.
0 commit comments