diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d596186836a29dce5471aea6a62ffcc3aaf1946d..dad41b7cdd6029df4da6e7507f9e26e123cccb81 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2005-06-12  Thomas Koenig  <Thomas.Koenig@online.de>
+
+	PR libfortran/21594
+	* intrinsics/eoshift0.c:  Add prototype for eoshift0.
+	* intrinsics/eoshift2.c:  Add prototype for eoshift2.
+
 2005-06-12  Steven G. Kargl <kargls@comcast.net>
 	    Thomas Koenig  <Thomas.Koenig@online.de>
 
diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c
index b1fbd1a516ade639c6646e3c6b9e912f2519e2d4..654c1dbaaad6c7bc0d147c6630044d35cbb0cdd5 100644
--- a/libgfortran/intrinsics/eoshift0.c
+++ b/libgfortran/intrinsics/eoshift0.c
@@ -40,6 +40,10 @@ static const char zeros[16] =
 /* TODO: make this work for large shifts when
    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)
diff --git a/libgfortran/intrinsics/eoshift2.c b/libgfortran/intrinsics/eoshift2.c
index 70baf3c18d1524479e8ec405586aeb5cfc01ed84..3b53adf0d82f0dca702d60cff8e26c521e6160a7 100644
--- a/libgfortran/intrinsics/eoshift2.c
+++ b/libgfortran/intrinsics/eoshift2.c
@@ -40,6 +40,10 @@ static const char zeros[16] =
 /* TODO: make this work for large shifts when
    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)