diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2006-08-12 09:30:04 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-08-12 07:30:04 +0000 |
| commit | aa2d15ab845e9f19a43d813a10e5d7ef6529750a (patch) | |
| tree | 55ab9616224f932aed340998560548a0445c164e | |
| parent | a30701cf3e7226ec22973fa60d0eb06529d71155 (diff) | |
| download | gcc-aa2d15ab845e9f19a43d813a10e5d7ef6529750a.zip gcc-aa2d15ab845e9f19a43d813a10e5d7ef6529750a.tar.gz gcc-aa2d15ab845e9f19a43d813a10e5d7ef6529750a.tar.bz2 | |
* intrinsics/bessel.c: Add prototypes for all functions.
From-SVN: r116098
| -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 00e5787..bb8b344 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 0079a33..69facd6 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) { |