diff options
| -rw-r--r-- | libgfortran/ChangeLog | 4 | ||||
| -rw-r--r-- | libgfortran/intrinsics/bessel.c | 13 |
2 files changed, 16 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 00e57878a2c..bb8b34410e2 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -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. diff --git a/libgfortran/intrinsics/bessel.c b/libgfortran/intrinsics/bessel.c index 0079a3316d0..69facd6e58f 100644 --- a/libgfortran/intrinsics/bessel.c +++ b/libgfortran/intrinsics/bessel.c @@ -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) { |
