diff options
| author | hjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-14 21:36:31 +0000 |
|---|---|---|
| committer | hjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-14 21:36:31 +0000 |
| commit | 52e3f42a324a30c3b3fea84c370830c9bd9a46b3 (patch) | |
| tree | f6e58497ba33b20af1a632c6a66eac3bc7857852 /libgfortran/intrinsics | |
| parent | 14fdcdea98ee2bd90cf01b2617190dec45da402a (diff) | |
| download | gcc-52e3f42a324a30c3b3fea84c370830c9bd9a46b3.tar.gz | |
2008-08-14 H.J. Lu <hongjiu.lu@intel.com>
PR libfortran/37123
* intrinsics/cshift0.c (cshift0): Fix 2 typos.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139117 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/cshift0.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index fa55b504820..73849d1a44f 100644 --- a/libgfortran/intrinsics/cshift0.c +++ b/libgfortran/intrinsics/cshift0.c @@ -120,7 +120,7 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array, #ifdef HAVE_GFC_INTEGER_16 case GFC_DTYPE_LOGICAL_16: case GFC_DTYPE_INTEGER_16: - cshift0_i16 ((gfc_array_i8 *)ret, (gfc_array_i16 *) array, shift, + cshift0_i16 ((gfc_array_i16 *)ret, (gfc_array_i16 *) array, shift, which); return; #endif @@ -233,7 +233,7 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array, /* Let's try to use the complex routines. First, a sanity check that the sizes match; this should be optimized to a no-op. */ - if (sizeof(GFC_INTGER_16) != sizeof(GFC_COMPLEX_8)) + if (sizeof(GFC_INTEGER_16) != sizeof(GFC_COMPLEX_8)) break; if (GFC_UNALIGNED_C8(ret->data) || GFC_UNALIGNED_C8(array->data)) |