Imported Upstream version 6.6.0.89

Former-commit-id: b39a328747c2f3414dc52e009fb6f0aa80ca2492

external/api-doc-tools/mdoc/mdoc.Test/mdoc.Test.FSharp/ClassMembers.fs

@@ -0,0 +1,27 @@
+module ClassMembers
+
+type PointWithCounter(a: int, b: int) =
+    // A variable i.
+    let mutable i = 0
+
+    // A let binding that uses a pattern.
+    let (x, y) = (a, b)
+
+    // A private function binding.
+    let privateFunction x y = x * x + 2*y
+
+    // A static let binding.
+    static let mutable count = 0
+
+    // A do binding.
+    do
+       count <- count + 1
+
+    member this.Prop1 = x
+    member this.Prop2 = y
+    member this.CreatedCount = count
+    member this.FunctionValue = privateFunction x y
+
+let point1 = PointWithCounter(10, 52)
+
+printfn "%d %d %d %d" (point1.Prop1) (point1.Prop2) (point1.CreatedCount) (point1.FunctionValue)