mcs/mbas/Test/errors/PropertyC6.vb

   1 REM LineNo: 15
   2 REM ExpectedError: BC30022
   3 REM ErrorMessage: Properties declared 'ReadOnly' cannot have a 'Set'.
   4
   5 Imports system
   6
   7 Module M
   8         private i as integer
   9
  10         public ReadOnly Property p() as Integer
  11                 GET
  12                         return i
  13                 END GET
  14
  15                 SET (ByVal val as Integer)
  16                         i = val
  17                 End SET
  18         End Property
  19
  20         Sub Main()
  21         End Sub
  22
  23 End Module