mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-25 12:05:06 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

* intrinsics/bessel.c: Add prototypes for all functions.

Browse Source 
From-SVN: r116098
This commit is contained in:
Francois-Xavier Coudert 2006-08-12 09:30:04 +02:00 committed by François-Xavier Coudert
parent a30701cf3e
commit aa2d15ab84
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -1,3 +1,7 @@
2006-08-12 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* intrinsics/bessel.c: Add prototypes for all functions.
2006-08-05 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* intrinsics/access.c (access_func): Remove export directive.

13
libgfortran/intrinsics/bessel.c
View File

@ -32,8 +32,9 @@ Boston, MA 02110-1301, USA. */
#include <math.h>
#include "libgfortran.h"
/* Assume we have all or none of these. */
#if HAVE_J0 && !HAVE_J0F
extern float j0f (float);
float
j0f (float x)
{
@ -42,6 +43,8 @@ j0f (float x)
#endif
#if HAVE_J1 && !HAVE_J1F
extern float j1f (float);
float j1f (float x)
{
return (float) j1 ((double) x);
@ -49,6 +52,8 @@ float j1f (float x)
#endif
#if HAVE_JN && !HAVE_JNF
extern float jnf (int, float);
float
jnf (int n, float x)
{
@ -57,6 +62,8 @@ jnf (int n, float x)
#endif
#if HAVE_Y0 && !HAVE_Y0F
extern float y0f (float);
float
y0f (float x)
{
@ -65,6 +72,8 @@ y0f (float x)
#endif
#if HAVE_Y1 && !HAVE_Y1F
extern float y1f (float);
float
y1f (float x)
{
@ -73,6 +82,8 @@ y1f (float x)
#endif
#if HAVE_YN && !HAVE_YNF
extern float ynf (int, float);
float
ynf (int n, float x)
{