mcs/mbas/Test/errors/PropertyC2.vb

   1 REM LineNo: 14
   2 REM ExpectedError: BC31064
   3 REM ErrorMessage: 'Set' parameter must have the same type as the containing property.
   4
   5 Imports system
   6
   7 Module M
   8         private i as integer
   9
  10         public Property p() as Integer
  11                 GET
  12                 END GET
  13
  14                 SET (ByVal val as string)
  15                 End SET
  16
  17         End Property
  18
  19         Sub Main()
  20         End Sub
  21
  22 End Module