mcs/btests/StructureC3.vb

   1 REM LineNo: 7
   2 REM ExpectedError: BC31047
   3 REM ErrorMessage: Protected types can only be declared inside of a class.
   4
   5 Structure S
   6         Dim a As String
   7         Protected Class c
   8         end class
   9 End Structure
  10
  11 Module M
  12         Sub Main()
  13                 dim x as S
  14         End Sub
  15 End Module