mcs/btests/ConditionalConstantsA.vb

   1 Imports System
   2 Module ConditionalConstant
   3         Sub Main()
   4            Dim value As Integer
   5            'Testing the scope of the conditional constant
   6            #Const a=True
   7            #If a
   8                    #Const a=False
   9                    value=10
  10            #End If
  11            #If a
  12                 value=20
  13            #End If
  14            If value<>10 Then
  15                 Throw New Exception("ConditionalConstantA:Failed-conditional constant should have global scope")
  16            End If
  17
  18           'Redefining a conditional constant
  19           #Const a=5
  20         End Sub
  21 End Module