asdf

SVN=121608
2024-09-23 21:20:13 -06:00 · 2008-06-08 16:16:17 -07:00 · 2008-06-08 16:16:17 -07:00 · ad073b1cf1
commit ad073b1cf1
parent 36bfd2a906
1 changed files with 84 additions and 62 deletions
--- a/test/float_lit.go
+++ b/test/float_lit.go
@ -6,66 +6,88 @@

 package main

-func main() {
-  []float(
-    0.,
-    +10.,
-    -210.,
-        
-    .0,
-    +.01,
-    -.012,
-       
-    0.0,
-    +10.01,
-    -210.012,
-
-    0E+1,
-    +10e2,
-    -210e3,
-    
-    0E-1,
-    +0e23,
-    -0e345,
-
-    0E1,
-    +10e23,
-    -210e345,
-
-    0.E1,
-    +10.e+2,
-    -210.e-3,
-        
-    .0E1,
-    +.01e2,
-    -.012e3,
-       
-    0.0E1,
-    +10.01e2,
-    -210.012e3,
-
-    0.E+12,
-    +10.e23,
-    -210.e34,
-        
-    .0E-12,
-    +.01e23,
-    -.012e34,
-       
-    0.0E12,
-    +10.01e23,
-    -210.012e34,
-
-    0.E123,
-    +10.e+234,
-    -210.e-345,
-        
-    .0E123,
-    +.01e234,
-    -.012e345,
-       
-    0.0E123,
-    +10.01e234,
-    -210.012e345
-  );
+func
+close(a, b double) bool
+{
+	if a == 0 {
+		if b == 0 {
+			return true;
+		}
+		return false;
+	}
+	d := a-b;
+	if d < 0 {
+		d = -d;
+	}
+	e := a;
+	if e < 0 {
+		e = -e;
+	}
+	if e*1.0e-14 < d {
+		return true;
+	}
+	return false;
+}
+
+func main() {
+
+	if !close(0., 0.) { panic "0. is ", 0., " should be ", 0., "\n"; }
+	if !close(+10., +10.) { panic "+10. is ", +10., " should be ", +10., "\n"; }
+	if !close(-210., -210.) { panic "-210. is ", -210., " should be ", -210., "\n"; }
+
+	if !close(.0, .0) { panic ".0 is ", .0, " should be ", .0, "\n"; }
+	if !close(+.01, +.01) { panic "+.01 is ", +.01, " should be ", +.01, "\n"; }
+	if !close(-.012, -.012) { panic "-.012 is ", -.012, " should be ", -.012, "\n"; }
+
+	if !close(0.0, 0.0) { panic "0.0 is ", 0.0, " should be ", 0.0, "\n"; }
+	if !close(+10.01, +10.01) { panic "+10.01 is ", +10.01, " should be ", +10.01, "\n"; }
+	if !close(-210.012, -210.012) { panic "-210.012 is ", -210.012, " should be ", -210.012, "\n"; }
+
+	if !close(0E+1, 0E+1) { panic "0E+1 is ", 0E+1, " should be ", 0E+1, "\n"; }
+	if !close(+10e2, +10e2) { panic "+10e2 is ", +10e2, " should be ", +10e2, "\n"; }
+	if !close(-210e3, -210e3) { panic "-210e3 is ", -210e3, " should be ", -210e3, "\n"; }
+
+	if !close(0E-1, 0E-1) { panic "0E-1 is ", 0E-1, " should be ", 0E-1, "\n"; }
+	if !close(+0e23, +0e23) { panic "+0e23 is ", +0e23, " should be ", +0e23, "\n"; }
+	if !close(-0e345, -0e345) { panic "-0e345 is ", -0e345, " should be ", -0e345, "\n"; }
+
+	if !close(0E1, 0E1) { panic "0E1 is ", 0E1, " should be ", 0E1, "\n"; }
+	if !close(+10e23, +10e23) { panic "+10e23 is ", +10e23, " should be ", +10e23, "\n"; }
+//	if !close(-210e345, -210e345) { panic "-210e345 is ", -210e345, " should be ", -210e345, "\n"; }
+
+	if !close(0.E1, 0.E1) { panic "0.E1 is ", 0.E1, " should be ", 0.E1, "\n"; }
+	if !close(+10.e+2, +10.e+2) { panic "+10.e+2 is ", +10.e+2, " should be ", +10.e+2, "\n"; }
+	if !close(-210.e-3, -210.e-3) { panic "-210.e-3 is ", -210.e-3, " should be ", -210.e-3, "\n"; }
+
+	if !close(.0E1, .0E1) { panic ".0E1 is ", .0E1, " should be ", .0E1, "\n"; }
+	if !close(+.01e2, +.01e2) { panic "+.01e2 is ", +.01e2, " should be ", +.01e2, "\n"; }
+	if !close(-.012e3, -.012e3) { panic "-.012e3 is ", -.012e3, " should be ", -.012e3, "\n"; }
+
+	if !close(0.0E1, 0.0E1) { panic "0.0E1 is ", 0.0E1, " should be ", 0.0E1, "\n"; }
+	if !close(+10.01e2, +10.01e2) { panic "+10.01e2 is ", +10.01e2, " should be ", +10.01e2, "\n"; }
+	if !close(-210.012e3, -210.012e3) { panic "-210.012e3 is ", -210.012e3, " should be ", -210.012e3, "\n"; }
+
+	if !close(0.E+12, 0.E+12) { panic "0.E+12 is ", 0.E+12, " should be ", 0.E+12, "\n"; }
+	if !close(+10.e23, +10.e23) { panic "+10.e23 is ", +10.e23, " should be ", +10.e23, "\n"; }
+	if !close(-210.e34, -210.e34) { panic "-210.e34 is ", -210.e34, " should be ", -210.e34, "\n"; }
+
+	if !close(.0E-12, .0E-12) { panic ".0E-12 is ", .0E-12, " should be ", .0E-12, "\n"; }
+	if !close(+.01e23, +.01e23) { panic "+.01e23 is ", +.01e23, " should be ", +.01e23, "\n"; }
+	if !close(-.012e34, -.012e34) { panic "-.012e34 is ", -.012e34, " should be ", -.012e34, "\n"; }
+
+	if !close(0.0E12, 0.0E12) { panic "0.0E12 is ", 0.0E12, " should be ", 0.0E12, "\n"; }
+	if !close(+10.01e23, +10.01e23) { panic "+10.01e23 is ", +10.01e23, " should be ", +10.01e23, "\n"; }
+	if !close(-210.012e34, -210.012e34) { panic "-210.012e34 is ", -210.012e34, " should be ", -210.012e34, "\n"; }
+
+	if !close(0.E123, 0.E123) { panic "0.E123 is ", 0.E123, " should be ", 0.E123, "\n"; }
+	if !close(+10.e+234, +10.e+234) { panic "+10.e+234 is ", +10.e+234, " should be ", +10.e+234, "\n"; }
+//	if !close(-210.e-345, -210.e-345) { panic "-210.e-345 is ", -210.e-345, " should be ", -210.e-345, "\n"; }
+
+	if !close(.0E123, .0E123) { panic ".0E123 is ", .0E123, " should be ", .0E123, "\n"; }
+//	if !close(+.01e234, +.01e234) { panic "+.01e234 is ", +.01e234, " should be ", +.01e234, "\n"; }
+//	if !close(-.012e345, -.012e345) { panic "-.012e345 is ", -.012e345, " should be ", -.012e345, "\n"; }
+
+	if !close(0.0E123, 0.0E123) { panic "0.0E123 is ", 0.0E123, " should be ", 0.0E123, "\n"; }
+//	if !close(+10.01e234, +10.01e234) { panic "+10.01e234 is ", +10.01e234, " should be ", +10.01e234, "\n"; }
+//	if !close(-210.012e345, -210.012e345) { panic "-210.012e345 is ", -210.012e345, " should be ", -210.012e345, "\n"; }
 }