mcs/btests/PropertyC9.vb

   1 REM LineNo: 10
   2 REM ExpectedError: BC30435
   3 REM ErrorMessage: Members in a Structure cannot be declared 'Protected'.
   4
   5 Imports system
   6
   7 Structure S
   8         private i as integer
   9
  10         protected Property p() as Integer
  11                 GET
  12                         return i
  13                 END GET
  14
  15                 SET (val as Integer)
  16                         i = val
  17                 End SET
  18
  19         End Property
  20 End Structure
  21
  22 Module M
  23         Sub Main()
  24         End Sub
  25
  26 End Module