mcs/btests/StructureC5.vb

   1 REM LineNo: 7
   2 REM ExpectedError: BC31067
   3 REM ErrorMessage: Method in a structure cannot be declared 'Protected' or 'Protected Friend'.
   4
   5 Structure S
   6         Dim a As String
   7         protected sub f(l as long)
   8         end sub
   9 End Structure
  10
  11 Module M
  12         Sub Main()
  13                 dim x as S
  14         End Sub
  15 End Module