diff --git a/tests/FSharpLint.Core.Tests/Rules/Conventions/UsedUnderscorePrefixedElements.fs b/tests/FSharpLint.Core.Tests/Rules/Conventions/UsedUnderscorePrefixedElements.fs
index a5114395d..3a2ec56d5 100644
--- a/tests/FSharpLint.Core.Tests/Rules/Conventions/UsedUnderscorePrefixedElements.fs
+++ b/tests/FSharpLint.Core.Tests/Rules/Conventions/UsedUnderscorePrefixedElements.fs
@@ -60,4 +60,12 @@ type CustomerName(firstName) =
 
         Assert.IsFalse this.ErrorsExist
 
+    member this.``Using private property with underscore prefix``() =
+        this.Parse """
+type CustomerName(firstName) =
+    member val private _FirstName = firstName with get, set
+    
+    member this.MyFunc () =
+        printfn "%A" this._FirstName"""
 
+        Assert.IsFalse this.ErrorsExist