diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2004-12-14 10:43:36 +0000 |
|---|---|---|
| committer | Steven Bosscher <steven@gcc.gnu.org> | 2004-12-14 10:43:36 +0000 |
| commit | 985791f6feb0274ab67f192ab913628428cead91 (patch) | |
| tree | a962594796d219a5d0f1ef5a80d214357231d6b3 /libgfortran/intrinsics/cshift0.c | |
| parent | 803140430a36062b98f1d9b3dced6e2a23a80e50 (diff) | |
| download | gcc-985791f6feb0274ab67f192ab913628428cead91.zip gcc-985791f6feb0274ab67f192ab913628428cead91.tar.gz gcc-985791f6feb0274ab67f192ab913628428cead91.tar.bz2 | |
re PR libfortran/18966 (cshift etc. not implemented for kind=1 and kind=2 actual arguments)
PR libfortran/18966
* gfortran.h: typedef GFC_INTEGER_1 and GFC_INTEGER_2
* intrinsics/cshift0.c (cshift0_1,cshift0_2): New functions.
* intrinsics/eoshift0.c (eoshift0_1,eoshift0_2): New functions.
* intrinsics/eoshift2.c (eoshift2_1,eoshift2_2): New functions.
From-SVN: r92132
Diffstat (limited to 'libgfortran/intrinsics/cshift0.c')
| -rw-r--r-- | libgfortran/intrinsics/cshift0.c | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index 4783eda..f712629 100644 --- a/libgfortran/intrinsics/cshift0.c +++ b/libgfortran/intrinsics/cshift0.c @@ -238,6 +238,30 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array, } +extern void cshift0_1 (gfc_array_char *, const gfc_array_char *, + const GFC_INTEGER_1 *, const GFC_INTEGER_1 *); +export_proto(cshift0_1); + +void +cshift0_1 (gfc_array_char *ret, const gfc_array_char *array, + const GFC_INTEGER_1 *pshift, const GFC_INTEGER_1 *pdim) +{ + cshift0 (ret, array, *pshift, pdim ? *pdim : 1); +} + + +extern void cshift0_2 (gfc_array_char *, const gfc_array_char *, + const GFC_INTEGER_2 *, const GFC_INTEGER_2 *); +export_proto(cshift0_2); + +void +cshift0_2 (gfc_array_char *ret, const gfc_array_char *array, + const GFC_INTEGER_2 *pshift, const GFC_INTEGER_2 *pdim) +{ + cshift0 (ret, array, *pshift, pdim ? *pdim : 1); +} + + extern void cshift0_4 (gfc_array_char *, const gfc_array_char *, const GFC_INTEGER_4 *, const GFC_INTEGER_4 *); export_proto(cshift0_4); @@ -249,6 +273,7 @@ cshift0_4 (gfc_array_char *ret, const gfc_array_char *array, cshift0 (ret, array, *pshift, pdim ? *pdim : 1); } + extern void cshift0_8 (gfc_array_char *, const gfc_array_char *, const GFC_INTEGER_8 *, const GFC_INTEGER_8 *); export_proto(cshift0_8); @@ -259,3 +284,4 @@ cshift0_8 (gfc_array_char *ret, const gfc_array_char *array, { cshift0 (ret, array, *pshift, pdim ? *pdim : 1); } + |