diff options
| author | H.J. Lu <hongjiu.lu@intel.com> | 2008-08-14 21:36:31 +0000 |
|---|---|---|
| committer | H.J. Lu <hjl@gcc.gnu.org> | 2008-08-14 14:36:31 -0700 |
| commit | 6f010296a476e59b26b2e4ba0d5a0e3dc66f1e0a (patch) | |
| tree | f6e58497ba33b20af1a632c6a66eac3bc7857852 | |
| parent | beb4bd6cf682a67cae7155eaebeea1b99229ab31 (diff) | |
| download | gcc-6f010296a476e59b26b2e4ba0d5a0e3dc66f1e0a.zip gcc-6f010296a476e59b26b2e4ba0d5a0e3dc66f1e0a.tar.gz gcc-6f010296a476e59b26b2e4ba0d5a0e3dc66f1e0a.tar.bz2 | |
re PR libfortran/37123 (libfortran failed to build)
2008-08-14 H.J. Lu <hongjiu.lu@intel.com>
PR libfortran/37123
* intrinsics/cshift0.c (cshift0): Fix 2 typos.
From-SVN: r139117
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/intrinsics/cshift0.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3131fa3..f2eb391 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2008-08-14 H.J. Lu <hongjiu.lu@intel.com> + + PR libfortran/37123 + * intrinsics/cshift0.c (cshift0): Fix 2 typos. + 2008-08-14 Thomas Koenig <tkoenig@gcc.gnu.org> PR libfortran/36886 diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index fa55b50..73849d1 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)) |