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

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

diff --git a/mcs/mbas/Test/tests/DoubleTypeCharTest.vb b/mcs/mbas/Test/tests/DoubleTypeCharTest.vb
old mode 100755 (executable)
new mode 100644 (file)
index a83c0e6..31af7b2
--- a/mcs/mbas/Test/tests/DoubleTypeCharTest.vb
+++ b/mcs/mbas/Test/tests/DoubleTypeCharTest.vb
@@ -1,19 +1,19 @@
-Imports System\r
-Module DoubleTypeCharTest\r
-    Sub Main()\r
-        Try\r
-            Dim m As Double\r
-            m = f(20)\r
-            If m <> 20 Then\r
-                Throw New Exception("DoubleTypeCharTest: failed")\r
-            End If\r
-            Exit Sub\r
-        Catch e As Exception\r
-            Console.WriteLine(e.Message)\r
-        End Try\r
-    End Sub\r
-\r
-    Function f#(ByVal param#)\r
-        f = param\r
-    End Function\r
-End Module\r
+Imports System
+Module DoubleTypeCharTest
+    Sub Main()
+        Try
+            Dim m As Double
+            m = f(20)
+            If m <> 20 Then
+                Throw New Exception("DoubleTypeCharTest: failed")
+            End If
+            Exit Sub
+        Catch e As Exception
+            Console.WriteLine(e.Message)
+        End Try
+    End Sub
+
+    Function f#(ByVal param#)
+        f = param
+    End Function
+End Module