Add a failing test for dotnet#212

src/fsharp/FSharp.Compiler.Unittests/FSharp.Compiler.Unittests.fsproj

@@ -65,6 +65,7 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="NUnitFrameworkShims.fs" Condition="'$(TargetFramework)' == 'sl3-wp'" />
+    <Compile Include="RecordInitialisation.fs" />
     <Compile Include="HashIfExpression.fs" />
   </ItemGroup>
   <ItemGroup>

src/fsharp/FSharp.Compiler.Unittests/RecordInitialisation.fs

@@ -0,0 +1,27 @@
+// Copyright (c) Microsoft Open Technologies, Inc.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.
+namespace FSharp.Compiler.Unittests
+
+open System
+open System.Text
+open NUnit.Framework
+open Microsoft.FSharp.Compiler
+
+type Foo = {
+  A : int
+  B : int
+  C : int
+}
+
+[<TestFixture>]
+type OrderOfRecordInitialisation() = 
+
+    [<Test>]
+    member this.ShouldInitialzeInGivenOrder() = 
+        let order = ref ""
+        let _ =
+          { A = let _ = order := !order + "1" in 0
+            C = let _ = order := !order + "2" in 0
+            B = let _ = order := !order + "3" in 0 }
+
+        Assert.AreEqual(!order, "123")
+