Daily bump.

[pf3gnuchains/gcc-fork.git] / libf2c / libF77 / i_nint.c

diff --git a/libf2c/libF77/i_nint.c b/libf2c/libF77/i_nint.c
index c0f6795..c4eaff4 100644 (file)
--- a/libf2c/libF77/i_nint.c
+++ b/libf2c/libF77/i_nint.c
@@ -1,14 +1,9 @@
 #include "f2c.h"
 
-#ifdef KR_headers
-double floor();
-integer i_nint(x) real *x;
-#else
 #undef abs
 #include <math.h>
-integer i_nint(real *x)
-#endif
+integer
+i_nint (real * x)
 {
-return( (*x)>=0 ?
-       floor(*x + .5) : -floor(.5 - *x) );
+  return (integer) (*x >= 0 ? floor (*x + .5) : -floor (.5 - *x));
 }