mcs/mbas/Test/errors/StructureC4.vb

   1 REM LineNo: 7
   2 REM ExpectedError: BC30435
   3 REM ErrorMessage: Members in a Structure cannot be declared 'Protected'.
   4
   5 Structure S
   6         Dim a as String
   7         Protected Const b as integer = 10
   8 End Structure
   9
  10 Module M
  11         Sub Main()
  12                 dim x as S
  13         End Sub
  14 End Module