mcs/btests/ExternalSourceDirectivesC4.vb

   1 'Line 202, BC30002: Undefined type 'Int'
   2 'Line 102, BC30002: Undefined type 'Int'
   3 'Line 24,  BC30002: Undefined type 'Int'
   4
   5
   6 ' Force an error to visually examine whether errors within #ExternalSource directives are properly reported
   7
   8 Imports System
   9 Module ExternalSourceDirective
  10         Sub Main()
  11                 #ExternalSource("/home/main.aspx",100)
  12                 Dim I As Integer
  13                 'Compiler should report error in "/home/main.aspx" at line 102
  14                 Dim B As Int
  15                 #End ExternalSource
  16         End Sub
  17
  18
  19         Sub A()
  20                 #ExternalSource("/home/a.aspx",200)
  21                 Dim I As Integer
  22                 'Compiler should report error in "/home/a.aspx" at line 202
  23                 Dim B As Int
  24                 #End ExternalSource
  25         End Sub
  26
  27         Sub C()
  28                 'Compiler should report error in "ExternalSourceDirectivesC4.vb" at line 24
  29                 Dim B As Int
  30         End Sub
  31 End Module