* io/write_float.def (WRITE_FLOAT): Use __builtin_signbit.

From-SVN: r157048

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 0d33a7df2ef210f3a89687c03843001daed9d907..b674f5c3466b4708501512c7e32915004e45625d 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2010-02-24  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
+
+       * io/write_float.def (WRITE_FLOAT): Use __builtin_signbit.
+
 2010-02-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        * io/list_read.c (list_formatted_read_scalar): Remove duplicate code.

diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def
index eca0e56a5e91b4e4717d83fae1c3c73d42d3bfd1..b945eb012db14c5e28cf56e8ded1489b1323eee4 100644 (file)
--- a/libgfortran/io/write_float.def
+++ b/libgfortran/io/write_float.def
@@ -1,4 +1,4 @@
-/* Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
+/* Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
    Contributed by Andy Vaught
    Write float code factoring to this file by Jerry DeLisle   
    F2003 I/O support contributed by Jerry DeLisle
@@ -818,7 +818,7 @@ sprintf (buffer, "%+-#" STR(MIN_FIELD_WIDTH) ".*" \
 {\
        GFC_REAL_ ## x tmp;\
        tmp = * (GFC_REAL_ ## x *)source;\
-       sign_bit = signbit (tmp);\
+       sign_bit = __builtin_signbit (tmp);\
        if (!isfinite (tmp))\
          { \
            write_infnan (dtp, f, isnan (tmp), sign_bit);\