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

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

diff --git a/libgfortran/intrinsics/eoshift2.c b/libgfortran/intrinsics/eoshift2.c
index 3b53adf..70baf3c 100644 (file)
--- a/libgfortran/intrinsics/eoshift2.c
+++ b/libgfortran/intrinsics/eoshift2.c
@@ -41,10 +41,6 @@ static const char zeros[16] =
    sizeof(int) < sizeof (index_type).  */
 
 static void
-eoshift2 (gfc_array_char *, const gfc_array_char *,
-         int, const gfc_array_char *, int );
-
-static void
 eoshift2 (gfc_array_char *ret, const gfc_array_char *array,
          int shift, const gfc_array_char *bound, int which)
 {