mcs/btests/ConditionalCompilationD.vb

   1 Imports System
   2 Module ConditionalCompilation
   3         Sub Main()
   4                 'Testing line continuation within conditional compilation statement
   5                 Dim value As Integer
   6                 #If _
   7                 True
   8                         value=10
   9                 #Else _
  10                       _
  11
  12                         Throw New Exception("#D11-Conditional Compilation: Failed")
  13                 #End If
  14
  15                 If value<>10 Then
  16                         Throw New Exception("#D12-Conditional Compilation: Failed")
  17                 End If
  18         End Sub
  19 End Module
  20