Corrected GotoStatementA.vb and removed ^M in all tests

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

diff --git a/mcs/mbas/Test/tests/InvocationStatementA.vb b/mcs/mbas/Test/tests/InvocationStatementA.vb
old mode 100755 (executable)
new mode 100644 (file)
index 8b0115c..5fb9a14
--- a/mcs/mbas/Test/tests/InvocationStatementA.vb
+++ b/mcs/mbas/Test/tests/InvocationStatementA.vb
@@ -1,65 +1,65 @@
-Imports Microsoft.VisualBasic\r
-Imports System\r
-\r
-Module InvocationStatementA\r
-    Dim i As Integer = 0\r
-\r
-    Delegate Function Df(ByVal a As Integer)\r
-\r
-    Sub f1()\r
-        i += 1\r
-        f2()\r
-    End Sub\r
-\r
-    Function f2() As Integer\r
-        i += 2\r
-    End Function\r
-\r
-    Function f2(ByVal i As Integer) As Integer\r
-        i += 5\r
-        Return i\r
-    End Function\r
-\r
-    Function f2(ByVal o As Object) As Boolean\r
-        Return True\r
-    End Function\r
-\r
-    Function f3(ByVal j As Integer)\r
-        i += j\r
-    End Function\r
-\r
-    Function f4(ByVal j As Integer)\r
-        i += j * 10\r
-    End Function\r
-\r
-    Sub main()\r
-\r
-        Call f1()\r
-        If i <> 3 Then\r
-            Throw New Exception("#ISB1 - Invocation Statement failed")\r
-        End If\r
-\r
-        If f2(i) <> 8 Then\r
-            Throw New Exception("#ISB2 - Invocation Statement failed")\r
-        End If\r
-\r
-        If Not f2("Hello") Then\r
-            Throw New Exception("#ISB3 - Invocation Statement failed")\r
-        End If\r
-\r
-        If Not f2(2.3D) Then\r
-            Throw New Exception("#ISB4 - Invocation Statement failed")\r
-        End If\r
-\r
-        Dim d1, d2 As Df\r
-        d1 = New Df(AddressOf f3)\r
-        d2 = New Df(AddressOf f4)\r
-\r
-        d1.Invoke(2) : d2.Invoke(2)\r
-        If i <> 25 Then\r
-            Throw New Exception("#ISB5 - Invocation Statement failed")\r
-        End If\r
-\r
-    End Sub\r
-\r
-End Module\r
+Imports Microsoft.VisualBasic
+Imports System
+
+Module InvocationStatementA
+    Dim i As Integer = 0
+
+    Delegate Function Df(ByVal a As Integer)
+
+    Sub f1()
+        i += 1
+        f2()
+    End Sub
+
+    Function f2() As Integer
+        i += 2
+    End Function
+
+    Function f2(ByVal i As Integer) As Integer
+        i += 5
+        Return i
+    End Function
+
+    Function f2(ByVal o As Object) As Boolean
+        Return True
+    End Function
+
+    Function f3(ByVal j As Integer)
+        i += j
+    End Function
+
+    Function f4(ByVal j As Integer)
+        i += j * 10
+    End Function
+
+    Sub main()
+
+        Call f1()
+        If i <> 3 Then
+            Throw New Exception("#ISB1 - Invocation Statement failed")
+        End If
+
+        If f2(i) <> 8 Then
+            Throw New Exception("#ISB2 - Invocation Statement failed")
+        End If
+
+        If Not f2("Hello") Then
+            Throw New Exception("#ISB3 - Invocation Statement failed")
+        End If
+
+        If Not f2(2.3D) Then
+            Throw New Exception("#ISB4 - Invocation Statement failed")
+        End If
+
+        Dim d1, d2 As Df
+        d1 = New Df(AddressOf f3)
+        d2 = New Df(AddressOf f4)
+
+        d1.Invoke(2) : d2.Invoke(2)
+        If i <> 25 Then
+            Throw New Exception("#ISB5 - Invocation Statement failed")
+        End If
+
+    End Sub
+
+End Module