Issue with single optional field with attributes.

Add test. Multiple fields works fine.
See: #627

Author: cristianoc

tests/parsing/grammar/expressions/expected/record.res.txt

@@ -1,40 +1,10 @@
-let r = { a = expr }
-let r = { a = expr }
-let r = { Parsetree.pexp_attributes = [||]; Parsetree.loc = loc }
-let r = { a; b; c }
-let r = { A.a = a; b }
-let r = { A.a = a; b; C.c = c }
-let r = { Parsetree.pexp_attributes = pexp_attributes; Parsetree.loc = loc }
-let r = { Parsetree.pexp_attributes = pexp_attributes; Parsetree.loc = loc }
-let r = { a = (expr : int); b = (x : string) }
-let r = { expr with pexp_attributes = [||] }
-let r = { expr with pexp_attributes = [||]; pexp_loc = loc }
-let r = { expr with pexp_attributes = [||] }
-let r = { (make () : myRecord) with foo = bar }
-let r = { (make () : myRecord) with foo = bar }
-let r =
-  {
-    x = ((None)[@ns.optional ]);
-    y = ((None)[@ns.optional ]);
-    z = (((None : tt))[@ns.optional ])
-  }
-let z name = { name = ((name)[@ns.optional ]); x = 3 }
-let z name = { name = ((name)[@ns.optional ]); x = 3 }
-let z name = { name; x = ((x)[@ns.optional ]) }
-let zz name = { name; x = ((x)[@ns.optional ]) }
-let _ =
-  match z with
-  | { x = ((None)[@ns.optional ]); y = ((None)[@ns.optional ]);
-      z = (((None : tt))[@ns.optional ]) } -> 11
-  | { name = ((name)[@ns.optional ]); x = 3 } -> 42
-  | { name = ((name)[@ns.optional ]); x = 3 } -> 4242
-  | { x = ((None)[@ns.optional ]); y = ((None)[@ns.optional ]);
-      z = (((None : tt))[@ns.optional ]) } -> 11
-  | { name = ((name)[@ns.optional ]); x = 3 } -> 42
-  | { name = ((name)[@ns.optional ]); x = 3 } -> 4242
-type nonrec tt = {
-  x: int ;
-  y: string [@ns.opttinal ]}
-type nonrec ttt = {
-  x: int ;
-  y: string [@ns.optional ]}
+
+  Syntax error!
+  tests/parsing/grammar/expressions/record.res:52:32
+
+  50 │ type multipleWithAttrs = {x:int, @attr y?: string}
+  51 │ 
+  52 │ type singleWithAttrs = {@attr y?: string}
+
+  I'm not sure what to parse here when looking at "?".
+

tests/parsing/grammar/expressions/record.res

@@ -46,3 +46,7 @@ let _ = switch z {
 type tt = {x:int, @ns.opttinal y : string}
 
 type ttt = {x:int, y?: string}
+
+type multipleWithAttrs = {x:int, @attr y?: string}
+
+type singleWithAttrs = {@attr y?: string}