mcs/btests/StructureC2.vb

   1 REM LineNo: 8
   2 REM ExpectedError: BC30629
   3 REM ErrorMessage: Structures cannot declare a non-shared 'Sub New' with no parameters.
   4
   5 Structure S
   6         Dim a as String
   7
   8         Sub NEW()
   9         end Sub
  10 End Structure
  11
  12 Module M
  13         Sub Main()
  14                 dim x as S
  15         End Sub
  16 End Module