[m-dev.] diff: pass tests in general directory for MSVC

[Peter Ross]

Hi,


===================================================================


Estimated hours taken: 0.25

Adapt the tests in the general directory so that the version of the
Mercury compiler built with MSVC passes them in the hlc.gc grade.

float_test.exp2:
string_format_test.exp3:
    The MSVC runtime prints out floating points using three digits for
    the exponent.

Index: float_test.exp2
===================================================================
RCS file: float_test.exp2
diff -N float_test.exp2
--- /dev/null	Sat Aug  7 21:45:41 1999
+++ float_test.exp2	Wed Feb  7 02:27:05 2001
@@ -0,0 +1,16 @@
+1234.5678: 1.23e+003
+X:      3
+Y:      4
+X + Y:      7
+X * Y:     12
+X - Y:     -1
+X / Y:   0.75
+X:     41
+Y:     -3
+X + Y:     38
+X * Y:   -123
+X - Y:     44
+X / Y:  -13.7
+Float max: 1.8e+308
+Float min: 2.23e-308
+Float epsilon: 2.22e-016
Index: string_format_test.exp3
===================================================================
RCS file: string_format_test.exp3
diff -N string_format_test.exp3
--- /dev/null	Sat Aug  7 21:45:41 1999
+++ string_format_test.exp3	Wed Feb  7 02:27:05 2001
@@ -0,0 +1,24 @@
+First 0x20 characters of fig 1.4 in MG are
+`In the beginning there was the t'.
+First 0x1b characters of fig 1.4 in MG are
+`In the beginning there was '.
+First 0x25 characters of fig 1.4 in MG are
+`In the beginning there was the text, '.
+
+Following line should have 3, 4, 1 significant figures.
+Strangly, 1.00e+001+  10.000=  2E+001
+
+
+!%0 10.5i!%0+10.5i!%0 -10.5i!%0+-10.5i!
+!% 10.5i!%+10.5i!% -10.5i!%+-10.5i!
+!% 10.5x!%+10.5x!% -10.5x!%+-10.5x!
+!%#10.x!%#+10.x!%#-10.x!%#+-10.x!
+
+!    -00031!    -00031!-00031    !-00031    !
+!     00031!    +00031! 00031    !+00031    !
+!    -00031!    -00031!-00031    !-00031    !
+!     00031!    +00031! 00031    !+00031    !
+!  ffffffe1!  ffffffe1!ffffffe1  !ffffffe1  !
+!     0001f!     0001f!0001f     !0001f     !
+!0xffffffe1!0xffffffe1!0xffffffe1!0xffffffe1!
+!      0x1f!      0x1f!0x1f      !0x1f      !

--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------