mcs/mbas/Test/errors/DefaultPropC3.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2003 Ximian, Inc.
   5
   6 REM LineNo: 13
   7 REM ExpectedError: BC30490
   8 REM ErrorMessage: 'Default' cannot be combined with 'Private'.
   9
  10 Imports System
  11
  12 Class base
  13         Private Default ReadOnly Property Item(i as Integer)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