Initialize x in frexp, modf, remqou tests.

diff --git a/ChangeLog b/ChangeLog
index ba02f56..50d9e9c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2013-05-06  Joseph Myers  <joseph@codesourcery.com>
 
+       * math/gen-libm-test.pl (parse_args): Initialize x before each
+       test of frexp, modf and remquo.
+
        * math/libm-test.inc (gamma_test): Consistently use TEST_f_f1 to
        test signgam value.
 

diff --git a/math/gen-libm-test.pl b/math/gen-libm-test.pl
index a743797..2f93898 100755 (executable)
--- a/math/gen-libm-test.pl
+++ b/math/gen-libm-test.pl
@@ -366,6 +366,7 @@ sub parse_args {
 
   # special treatment for some functions
   if ($args[0] eq 'frexp') {
+    $pre = "  x = 123456789;\n";
     if (defined $special[0] && $special[0] ne "IGNORE") {
       my ($str) = "$call sets x to $special[0]";
       $post = "  check_int (\"$str\", x, $special[0]";
@@ -379,12 +380,14 @@ sub parse_args {
       $post .= &new_test ($str, undef);
     }
   } elsif ($args[0] eq 'modf') {
+    $pre = "  x = 123.456789;\n";
     if (defined $special[0] && $special[0] ne "IGNORE") {
       my ($str) = "$call sets x to $special[0]";
       $post = "  check_float (\"$str\", x, $special[0]";
       $post .= &new_test ($str, undef);
     }
   } elsif ($args[0] eq 'remquo') {
+    $pre = "  x = 123456789;\n";
     if (defined $special[0] && $special[0] ne "IGNORE") {
       my ($str) = "$call sets x to $special[0]";
       $post = "  check_int (\"$str\", x, $special[0]";