From aa2d15ab845e9f19a43d813a10e5d7ef6529750a Mon Sep 17 00:00:00 2001
From: Francois-Xavier Coudert <coudert@clipper.ens.fr>
Date: Sat, 12 Aug 2006 09:30:04 +0200
Subject: [PATCH] * intrinsics/bessel.c: Add prototypes for all functions.

From-SVN: r116098
---
 libgfortran/ChangeLog           |  4 ++++
 libgfortran/intrinsics/bessel.c | 13 ++++++++++++-
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 00e57878a2cb..bb8b34410e2b 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 0079a3316d0a..69facd6e58f9 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)
 {