Add test

Author: dawedawe

tests/FSharp.Compiler.ComponentTests/FSharp.Compiler.ComponentTests.fsproj

@@ -233,6 +233,7 @@
     <Compile Include="OCamlCompat\OCamlCompat.fs" />
     <Compile Include="Miscellaneous\ListLiterals.fs" />
     <Compile Include="Miscellaneous\SemanticClassificationKeyBuilder.fs" />
+    <Compile Include="Miscellaneous\FindUnsolvedTests.fs" />
     <Compile Include="Miscellaneous\XmlDoc.fs" />
     <Compile Include="Miscellaneous\FsharpSuiteMigrated.fs" />
     <Compile Include="Miscellaneous\MigratedCoreTests.fs" />

tests/FSharp.Compiler.ComponentTests/Miscellaneous/FindUnsolvedTests.fs

@@ -0,0 +1,13 @@
+// Copyright (c) Microsoft Corporation.  All Rights Reserved.  See License.txt in the project root for license information.
+
+module FSharp.Compiler.ComponentTests.Miscellaneous.FindUnsolvedTests
+
+open Xunit
+open FSharp.Test.Compiler
+
+[<Fact>]
+let ``fallbackRange being set in FindUnsolved`` () =    
+    FSharp
+        """let f<'b> () : 'b = (let a = failwith "" in unbox a)"""
+    |> typecheckResults
+    |> ignore