Tests update

Author: 0101

tests/FSharp.Compiler.ComponentTests/EmittedIL/Misc/Structs02.fs.il.debug.bsl

@@ -66,6 +66,7 @@
     .method public hidebysig specialname 
             instance int32  get_hash() cil managed
     {
+      .custom instance void [runtime]System.Runtime.CompilerServices.IsReadOnlyAttribute::.ctor() = ( 01 00 00 00 )
       // Code size       7 (0x7)
       .maxstack  8
       IL_0000:  ldarg.0

tests/FSharp.Compiler.ComponentTests/EmittedIL/Misc/Structs02.fs.il.release.bsl

@@ -66,6 +66,7 @@
     .method public hidebysig specialname 
             instance int32  get_hash() cil managed
     {
+      .custom instance void [runtime]System.Runtime.CompilerServices.IsReadOnlyAttribute::.ctor() = ( 01 00 00 00 ) 
       // Code size       7 (0x7)
       .maxstack  8
       IL_0000:  ldarg.0

tests/FSharp.Compiler.ComponentTests/EmittedIL/StructGettersReadOnly.fs

@@ -49,6 +49,16 @@ module ``Struct getters readonly`` =
                 member _.MyField = myField
             """
 
+    let structNonRecordVal =
+        FSharp
+            """
+            module TestStructNonRecordVal
+
+            [<Struct>]
+            type MyStruct =
+                val MyField: int
+            """
+
     let structWithCustomGetter =
         FSharp
             """
@@ -93,13 +103,21 @@ module ``Struct getters readonly`` =
         |> shouldn't haveAttribute "IsReadOnlyAttribute"
 
     [<Fact>]
-    let ``Struct non-record has readonly getters`` () =
+    let ``Struct has readonly getters`` () =
         structNonRecord
         |> compileAssembly
         |> getType "TestStructNonRecord+MyStruct"
         |> getMethod "get_MyField"
         |> should haveAttribute "IsReadOnlyAttribute"
 
+    [<Fact>]
+    let ``Struct val has readonly getter`` () =
+        structNonRecordVal
+        |> compileAssembly
+        |> getType "TestStructNonRecordVal+MyStruct"
+        |> getMethod "get_MyField"
+        |> should haveAttribute "IsReadOnlyAttribute"
+
     [<Fact>]
     let ``Custom getter on a struct doesn't have readonly attribute`` () =
         structWithCustomGetter

tests/FSharp.Compiler.ComponentTests/EmittedIL/Structure/FloatsAndDoubles.fs.il.debug.bsl

@@ -65,6 +65,7 @@
     .method public hidebysig specialname 
             instance float64  get_F() cil managed
     {
+      .custom instance void [runtime]System.Runtime.CompilerServices.IsReadOnlyAttribute::.ctor() = ( 01 00 00 00 ) 
       // Code size       7 (0x7)
       .maxstack  8
       IL_0000:  ldarg.0
@@ -409,6 +410,7 @@
     .method public hidebysig specialname 
             instance float64  get_D() cil managed
     {
+      .custom instance void [runtime]System.Runtime.CompilerServices.IsReadOnlyAttribute::.ctor() = ( 01 00 00 00 ) 
       // Code size       7 (0x7)
       .maxstack  8
       IL_0000:  ldarg.0

tests/FSharp.Compiler.ComponentTests/EmittedIL/Structure/FloatsAndDoubles.fs.il.release.bsl

@@ -65,6 +65,7 @@
     .method public hidebysig specialname 
             instance float64  get_F() cil managed
     {
+      .custom instance void [runtime]System.Runtime.CompilerServices.IsReadOnlyAttribute::.ctor() = ( 01 00 00 00 ) 
       // Code size       7 (0x7)
       .maxstack  8
       IL_0000:  ldarg.0
@@ -376,6 +377,7 @@
     .method public hidebysig specialname 
             instance float64  get_D() cil managed
     {
+      .custom instance void [runtime]System.Runtime.CompilerServices.IsReadOnlyAttribute::.ctor() = ( 01 00 00 00 ) 
       // Code size       7 (0x7)
       .maxstack  8
       IL_0000:  ldarg.0