procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
This commit is contained in:
Thomas Koenig 2005-06-13 22:37:39 +00:00 • committed by Thomas Koenig
parent 9b1f9228b2
commit 2b5554f3c0
3 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
libgfortran/ChangeLog
View 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>

4
libgfortran/intrinsics/eoshift0.c
View file

@ -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)

4
libgfortran/intrinsics/eoshift2.c
View file

@ -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)