include accessibility range in SynPat.Named

src/Compiler/pars.fsy

@@ -3776,7 +3776,11 @@ atomicPattern:
             mkSynPatMaybeVar lidwd vis (lhs parseState)
         else
            let synIdent = List.head lidwd.IdentsWithTrivia
-           SynPat.Named(synIdent, false, vis, synIdent.Range) }
+           let m =
+               match vis with
+               | Some vis -> unionRanges vis.Range synIdent.Range
+               | _ -> synIdent.Range
+           SynPat.Named(synIdent, false, vis, m) }
 
   | constant
       { SynPat.Const(fst $1, snd $1) }

tests/service/data/SyntaxTree/SynType/Named 01.fs

@@ -0,0 +1,3 @@
+module Module
+
+let value = 42

tests/service/data/SyntaxTree/SynType/Named 01.fs.bsl

@@ -0,0 +1,21 @@
+ImplFile
+  (ParsedImplFileInput
+     ("/root/SynType/Named 01.fs", false, QualifiedNameOfFile Module, [], [],
+      [SynModuleOrNamespace
+         ([Module], false, NamedModule,
+          [Let
+             (false,
+              [SynBinding
+                 (None, Normal, false, false, [],
+                  PreXmlDoc ((3,0), FSharp.Compiler.Xml.XmlDocCollector),
+                  SynValData
+                    (None, SynValInfo ([], SynArgInfo ([], false, None)), None),
+                  Named (SynIdent (value, None), false, None, (3,4--3,9)), None,
+                  Const (Int32 42, (3,12--3,14)), (3,4--3,9), Yes (3,0--3,14),
+                  { LeadingKeyword = Let (3,0--3,3)
+                    InlineKeyword = None
+                    EqualsRange = Some (3,10--3,11) })], (3,0--3,14))],
+          PreXmlDoc ((1,0), FSharp.Compiler.Xml.XmlDocCollector), [], None,
+          (1,0--3,14), { LeadingKeyword = Module (1,0--1,6) })], (true, true),
+      { ConditionalDirectives = []
+        CodeComments = [] }, set []))

tests/service/data/SyntaxTree/SynType/Named 02.fs

@@ -0,0 +1,3 @@
+module Module
+
+let private value = 42

tests/service/data/SyntaxTree/SynType/Named 02.fs.bsl

@@ -0,0 +1,23 @@
+ImplFile
+  (ParsedImplFileInput
+     ("/root/SynType/Named 02.fs", false, QualifiedNameOfFile Module, [], [],
+      [SynModuleOrNamespace
+         ([Module], false, NamedModule,
+          [Let
+             (false,
+              [SynBinding
+                 (None, Normal, false, false, [],
+                  PreXmlDoc ((3,0), FSharp.Compiler.Xml.XmlDocCollector),
+                  SynValData
+                    (None, SynValInfo ([], SynArgInfo ([], false, None)), None),
+                  Named
+                    (SynIdent (value, None), false, Some (Private (3,4--3,11)),
+                     (3,4--3,17)), None, Const (Int32 42, (3,20--3,22)),
+                  (3,4--3,17), Yes (3,0--3,22),
+                  { LeadingKeyword = Let (3,0--3,3)
+                    InlineKeyword = None
+                    EqualsRange = Some (3,18--3,19) })], (3,0--3,22))],
+          PreXmlDoc ((1,0), FSharp.Compiler.Xml.XmlDocCollector), [], None,
+          (1,0--3,22), { LeadingKeyword = Module (1,0--1,6) })], (true, true),
+      { ConditionalDirectives = []
+        CodeComments = [] }, set []))