OSDN Git Service

2005-06-12 Thomas Koenig <Thomas.Koenig@online.de>
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 13 Jun 2005 22:37:39 +0000 (22:37 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 13 Jun 2005 22:37:39 +0000 (22:37 +0000)
        PR libfortran/21594
        * intrinsics/eoshift0.c:  Add prototype for eoshift0.
        * intrinsics/eoshift2.c:  Add prototype for eoshift2.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100907 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/intrinsics/eoshift0.c
libgfortran/intrinsics/eoshift2.c

index d596186..dad41b7 100644 (file)
@@ -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>
 
index b1fbd1a..654c1db 100644 (file)
@@ -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)
 {
index 70baf3c..3b53adf 100644 (file)
@@ -41,6 +41,10 @@ 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)
 {