2005-03-23 Ritvik Mayank <mritvik@novell.com>

[mono.git] / mcs / mbas / Test / tests / ConversionsA.vb

diff --git a/mcs/mbas/Test/tests/ConversionsA.vb b/mcs/mbas/Test/tests/ConversionsA.vb
old mode 100755 (executable)
new mode 100644 (file)
index caa7927..4ac7b55
--- a/mcs/mbas/Test/tests/ConversionsA.vb
+++ b/mcs/mbas/Test/tests/ConversionsA.vb
@@ -1,40 +1,40 @@
-\r
-Imports System\r
-Imports Microsoft.VisualBasic\r
-\r
-Module ConversionsA\r
-\r
-    Sub f1(ByRef a As Object)\r
-    End Sub\r
-\r
-    Sub f2(ByVal array() As Object, ByVal index As Integer, ByVal count As Integer, ByVal value As Object)\r
-        Dim i As Integer\r
-        For i = index To (index + count) - 1\r
-            array(i) = value\r
-        Next i\r
-    End Sub\r
-\r
-\r
-    Sub Main()\r
-        On Error GoTo ErrorHandler\r
-\r
-        Dim a(10) As Object\r
-        Dim b() As Object = New String(10) {}\r
-        f1(a(0))\r
-        f1(b(1)) ' ArrayTypeMismatchException\r
-\r
-        Dim str(100) As String\r
-        f2(str, 0, 101, "Undefined")\r
-        f2(str, 0, 10, Nothing)\r
-        f2(str, 91, 10, 0) ' ArrayTypeMismatchException\r
-        Exit Sub\r
-\r
-ErrorHandler:\r
-        If Err.Number <> 5 Then   ' System.ArrayTypeMismatchException\r
-            Throw New Exception("#CA1 - Conversion Statement failed")\r
-        End If\r
-        Resume Next\r
-\r
-    End Sub\r
-\r
+
+Imports System
+Imports Microsoft.VisualBasic
+
+Module ConversionsA
+
+    Sub f1(ByRef a As Object)
+    End Sub
+
+    Sub f2(ByVal array() As Object, ByVal index As Integer, ByVal count As Integer, ByVal value As Object)
+        Dim i As Integer
+        For i = index To (index + count) - 1
+            array(i) = value
+        Next i
+    End Sub
+
+
+    Sub Main()
+        On Error GoTo ErrorHandler
+
+        Dim a(10) As Object
+        Dim b() As Object = New String(10) {}
+        f1(a(0))
+        f1(b(1)) ' ArrayTypeMismatchException
+
+        Dim str(100) As String
+        f2(str, 0, 101, "Undefined")
+        f2(str, 0, 10, Nothing)
+        f2(str, 91, 10, 0) ' ArrayTypeMismatchException
+        Exit Sub
+
+ErrorHandler:
+        If Err.Number <> 5 Then   ' System.ArrayTypeMismatchException
+            Throw New Exception("#CA1 - Conversion Statement failed")
+        End If
+        Resume Next
+
+    End Sub
+
 End Module
\ No newline at end of file