mcs/mbas/Test/errors/ConditionalCompilationC2.vb

   1 REM LineNo: 15
   2 REM ExpectedError: BC30459
   3 REM ErrorMessage: 'Nothing' is not valid in this context.
   4
   5
   6
   7 Imports System
   8 Module ConditionalCompilation
   9         Sub Main()
  10                 Dim value As Integer
  11                 Dim a,b As Integer
  12                 Try
  13                         'Testing #If and #End If Block
  14
  15                         #If a+b
  16                                value=10
  17                         #End If
  18                         If value<>10 Then
  19                                 Throw New Exception("#A1-Conditional Compilation:Failed ")
  20                         End If
  21                 Catch e As Exception
  22                         Console.WriteLine(e.Message)
  23                 End Try
  24
  25         End Sub
  26 End Module
  27