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

From-SVN: r116098

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 00e57878a2cb85304596d8b241a28d8a57d3a168..bb8b34410e2b23efd57f85831effb124e8ebcf14 100644 (file)
--- 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 0079a3316d0aafe0069d0590c01973c0e2094cb9..69facd6e58f9edc738319ff6e8e4e0bb844d52bf 100644 (file)
--- 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)
 {