From 2b5554f3c0d84b54c5863e8054bd68fd367cdc4a Mon Sep 17 00:00:00 2001
From: Thomas Koenig <Thomas.Koenig@online.de>
Date: Mon, 13 Jun 2005 22:37:39 +0000
Subject: [PATCH] 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
---
libgfortran/ChangeLog | 6 ++++++
libgfortran/intrinsics/eoshift0.c | 4 ++++
libgfortran/intrinsics/eoshift2.c | 4 ++++
3 files changed, 14 insertions(+)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d596186836a2..dad41b7cdd60 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 b1fbd1a516ad..654c1dbaaad6 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 70baf3c18d15..3b53adf0d82f 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)
--
GitLab