Bugfix - 'static meme x = x' should fail (#16345)

* Make 'static meme' fail as it should

* New attempt

* Change error message

* Update tests/service/SyntaxTreeTests.fs

Co-authored-by: Adam Boniecki <[email protected]>

---------

Co-authored-by: Adam Boniecki <[email protected]>

Author: T-Gro

src/Compiler/FSComp.txt

@@ -1735,4 +1735,5 @@ featureReuseSameFieldsInStructUnions,"Share underlying fields in a [<Struct>] di
 3855,tcNoStaticMemberFoundForOverride,"No static abstract member was found that corresponds to this override"
 3859,tcNoStaticPropertyFoundForOverride,"No static abstract property was found that corresponds to this override"
 3860,chkStaticMembersOnObjectExpressions,"Object expressions cannot implement interfaces with static abstract members or declare static members."
-3861,chkTailCallAttrOnNonRec,"The TailCall attribute should only be applied to recursive functions."
+3861,chkTailCallAttrOnNonRec,"The TailCall attribute should only be applied to recursive functions."
+3862,parsStaticMemberImcompleteSyntax,"Incomplete declaration of a static construct. Use 'static let','static do','static member' or 'static val' for declaration."

src/Compiler/pars.fsy

@@ -1988,6 +1988,9 @@ classDefnMember:
        if Option.isSome $2 then
            errorR (Error (FSComp.SR.parsVisibilityDeclarationsShouldComePriorToIdentifier (), rhs parseState 2))
        let flags = $3
+       match flags with
+       | _, SynLeadingKeyword.Static(mStatic) -> errorR (Error (FSComp.SR.parsStaticMemberImcompleteSyntax (), mStatic))
+       | _ -> ()
        $4 $2 flags $1 rangeStart }
 
   | opt_attributes opt_access memberFlags recover