mcs/btests/PropertyC8.vb

   1 REM LineNo: 9
   2 REM ExpectedError: BC30678
   3 REM ErrorMessage: 'End' statement not valid.
   4
   5 Imports system
   6
   7 Public Structure s
   8                 Dim a As Integer
   9                 public MustOverride Property p() as Integer
  10 End Structure
  11
  12
  13 Module M
  14         private i as integer
  15
  16
  17         Sub Main()
  18         End Sub
  19
  20 End Module