mcs/mbas/Test/errors/DefaultPropC1.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2003 Ximian, Inc.
   5
   6 REM LineNo: 14
   7 REM ExpectedError: BC31048
   8 REM ErrorMessage: Properties with no required parameters cannot be declared 'Default'.
   9
  10 Imports System
  11
  12 Class base
  13         Public Default ReadOnly Property Item()As Integer
  14                 Get
  15                         Return 10
  16                 End Get
  17         End Property
  18 End Class
  19
  20 Module DefaultA
  21         Sub Main()
  22         End Sub
  23 End Module