Re: slang 1.3.10 available

["John E. Davis" <davis>]

Ismael Cordeiro <ismael@xxxxxxxxxxxx> wrote:
>| S-Lang Error: Intrinsic Error: called from line 70, file: sscanf.sl

Please try the following patch to slang/src/test/sscanf.sl and re-run
make runtests.  I am interested in the output.  Thanks, --John

--- sscanf.sl~	Sun Nov 14 01:01:04 1999
+++ sscanf.sl	Sun Nov 14 15:19:16 1999
@@ -57,14 +57,25 @@
 
 static define test_atof_main (n)
 {
+   
    loop (n)
      {
 	variable a,b,c;
 	a = 500 - random () * 1000;
 	b = 400 - 800 * random ();
-	c = a * 10.0^b;
-	test_atof (c);
+	ERROR_BLOCK
+	  {
+	     _clear_error ();
+	     () = fprintf (stderr, "Floating point exception occured for %g * 10^%g\n",
+			   a, b);
+	  }
+	if (1)
+	  {
+	     c = a * 10.0^b;
+	     test_atof (c);
+	  }
      }
+
    test_atof (random ());
 }
 test_atof_main (1000);


-- 
John E. Davis                   Center for Space Research/AXAF Science Center
617-258-8119                    One Hampshire St., Building NE80-6019
http://space.mit.edu/~davis     Cambridge, MA  02139-4307