2004-08-27 Martin Baulig <martin@ximian.com>

[mono.git] / mcs / btests / DecimalTypeCharTest.vb

diff --git a/mcs/btests/DecimalTypeCharTest.vb b/mcs/btests/DecimalTypeCharTest.vb
index efe8ec0911a47def5d93e5ff0b637408bcc3d2d6..035ab6f368919218208cd57b010da5be11aa5056 100755 (executable)
--- a/mcs/btests/DecimalTypeCharTest.vb
+++ b/mcs/btests/DecimalTypeCharTest.vb
@@ -2,8 +2,8 @@ Module DecimalTypeCharTest
     Sub Main()\r
         Try\r
             Dim m As Decimal\r
-            m = f(20.2)\r
-            If m <> 20.2 Then\r
+            m = f(20.2D)\r
+            If m <> 20.2D Then\r
                 Throw New Exception("DecimalTypeCharTest: failed")\r
             End If\r
             Exit Sub\r