Imported Upstream version 6.6.0.89

Former-commit-id: b39a328747c2f3414dc52e009fb6f0aa80ca2492

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

@@ -0,0 +1,16 @@
+module DoBindings
+
+open System
+
+type MyBindingType(a:int, b:int) as this =
+    inherit Object()
+    let x = 2*a
+    let y = 2*b
+    do printfn "Initializing object %d %d %d %d %d %d"
+               a b x y (this.Prop1) (this.Prop2)
+    static do printfn "Initializing MyBindingType."
+    member this.Prop1 = 4*x
+    member this.Prop2 = 4*y
+    override this.ToString() = System.String.Format("{0} {1}", this.Prop1, this.Prop2)
+
+let obj1 = new MyBindingType(1, 2)