git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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

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> 2006-08-05 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* intrinsics/access.c (access_func): Remove export directive. * 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 <math.h>
#include "libgfortran.h" #include "libgfortran.h"
/* Assume we have all or none of these. */
#if HAVE_J0 && !HAVE_J0F #if HAVE_J0 && !HAVE_J0F
extern float j0f (float);
float float
j0f (float x) j0f (float x)
{ {
@ -42,6 +43,8 @@ j0f (float x)
#endif #endif
#if HAVE_J1 && !HAVE_J1F #if HAVE_J1 && !HAVE_J1F
extern float j1f (float);
float j1f (float x) float j1f (float x)
{ {
return (float) j1 ((double) x); return (float) j1 ((double) x);
@ -49,6 +52,8 @@ float j1f (float x)
#endif #endif
#if HAVE_JN && !HAVE_JNF #if HAVE_JN && !HAVE_JNF
extern float jnf (int, float);
float float
jnf (int n, float x) jnf (int n, float x)
{ {
@ -57,6 +62,8 @@ jnf (int n, float x)
#endif #endif
#if HAVE_Y0 && !HAVE_Y0F #if HAVE_Y0 && !HAVE_Y0F
extern float y0f (float);
float float
y0f (float x) y0f (float x)
{ {
@ -65,6 +72,8 @@ y0f (float x)
#endif #endif
#if HAVE_Y1 && !HAVE_Y1F #if HAVE_Y1 && !HAVE_Y1F
extern float y1f (float);
float float
y1f (float x) y1f (float x)
{ {
@ -73,6 +82,8 @@ y1f (float x)
#endif #endif
#if HAVE_YN && !HAVE_YNF #if HAVE_YN && !HAVE_YNF
extern float ynf (int, float);
float float
ynf (int n, float x) ynf (int n, float x)
{ {