mcs/mbas/Test/errors/SyncLockC3.vb

   1 REM LineNo: 13\r
   2 REM ExpectedError: BC30582\r
   3 REM ErrorMessage: 'SyncLock' operand cannot be of type 'Boolean' because 'Boolean' is not a reference type.\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module SyncLockC3\r
   8     Class C\r
   9         Private Shared count = 0\r
  10 \r
  11         Sub IncrementCount()\r
  12             Dim i As Integer\r
  13             SyncLock i = 0\r
  14                 count += 1\r
  15                 Console.WriteLine(count)\r
  16             End SyncLock\r
  17         End Sub\r
  18     End Class\r
  19 \r
  20     Sub Main()\r
  21         Dim c As New C()\r
  22         c.IncrementCount()\r
  23     End Sub\r
  24 \r
  25 End Module