2005-06-12 Thomas Koenig <Thomas.Koenig@online.de>

[pf3gnuchains/gcc-fork.git] / libgfortran / intrinsics / eoshift0.c

diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c
index b1fbd1a..654c1db 100644 (file)
--- a/libgfortran/intrinsics/eoshift0.c
+++ b/libgfortran/intrinsics/eoshift0.c
@@ -41,6 +41,10 @@ static const char zeros[16] =
    sizeof(int) < sizeof (index_type).  */
 
 static void
+eoshift0 (gfc_array_char * , const gfc_array_char *,
+         int, const char *, int);
+
+static void
 eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
          int shift, const char * pbound, int which)
 {