procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR libfortran/47970 (c99_functions.c:611:5: warning: implicit declaration of function 'round')

Browse source 
PR libfortran/47970
	* intrinsics/c99_functions.c (round): Move higher in the file.

From-SVN: r181153
This commit is contained in:
Francois-Xavier Coudert 2011-11-08 10:31:04 +00:00 • committed by François-Xavier Coudert
parent 7d29c953af
commit 287188ea07
2 changed files with 36 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
libgfortran/ChangeLog
View file

@ -1,3 +1,8 @@
2011-11-08 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/47970
* intrinsics/c99_functions.c (round): Move higher in the file.
2011-11-07 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/45723

61
libgfortran/intrinsics/c99_functions.c
View file

@ -559,6 +559,37 @@ powf (float x, float y)
#endif
#ifndef HAVE_ROUND
#define HAVE_ROUND 1
/* Round to nearest integral value. If the argument is halfway between two
integral values then round away from zero. */
double round (double x);
double
round (double x)
{
double t;
if (!isfinite (x))
return (x);
if (x >= 0.0)
{
t = floor (x);
if (t - x <= -0.5)
t += 1.0;
return (t);
}
else
{
t = floor (-x);
if (t + x <= -0.5)
t += 1.0;
return (-t);
}
}
#endif
/* Algorithm by Steven G. Kargl. */
#if !defined(HAVE_ROUNDL)
@ -614,36 +645,6 @@ roundl (long double x)
#endif
#endif
#ifndef HAVE_ROUND
#define HAVE_ROUND 1
/* Round to nearest integral value. If the argument is halfway between two
integral values then round away from zero. */
double round (double x);
double
round (double x)
{
double t;
if (!isfinite (x))
return (x);
if (x >= 0.0)
{
t = floor (x);
if (t - x <= -0.5)
t += 1.0;
return (t);
}
else
{
t = floor (-x);
if (t + x <= -0.5)
t += 1.0;
return (-t);
}
}
#endif
#ifndef HAVE_ROUNDF
#define HAVE_ROUNDF 1
/* Round to nearest integral value. If the argument is halfway between two