diff options
| author | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-05-19 10:52:03 +0000 |
|---|---|---|
| committer | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-05-19 10:52:03 +0000 |
| commit | 3ad649e5f9e3e4dd6f1c965916b1427a7d56fdd5 (patch) | |
| tree | c4e8e02849cc5a16fa5bc00db65b9b2aa8561eaf /libf2c/libF77/i_nint.c | |
| parent | 6e0804a53327a47eadbc1edac8c64e3aa7b1f579 (diff) | |
| download | gcc-3ad649e5f9e3e4dd6f1c965916b1427a7d56fdd5.tar.gz | |
Update to Netlib version of 1998-04-20
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@19877 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libF77/i_nint.c')
| -rw-r--r-- | libf2c/libF77/i_nint.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libf2c/libF77/i_nint.c b/libf2c/libF77/i_nint.c index c0f6795171f..411ce32821e 100644 --- a/libf2c/libF77/i_nint.c +++ b/libf2c/libF77/i_nint.c @@ -9,6 +9,5 @@ integer i_nint(x) real *x; integer i_nint(real *x) #endif { -return( (*x)>=0 ? - floor(*x + .5) : -floor(.5 - *x) ); +return (integer)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x)); } |