re PR fortran/21594 ([4.0 only] FAIL: gfortran.dg/eoshift.f90 -O0 execution test)

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.

From-SVN: r100907

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d596186836a29dce5471aea6a62ffcc3aaf1946d..dad41b7cdd6029df4da6e7507f9e26e123cccb81 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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)