From 6f010296a476e59b26b2e4ba0d5a0e3dc66f1e0a Mon Sep 17 00:00:00 2001 From: "H.J. Lu" Date: Thu, 14 Aug 2008 21:36:31 +0000 Subject: [PATCH] re PR libfortran/37123 (libfortran failed to build) 2008-08-14 H.J. Lu PR libfortran/37123 * intrinsics/cshift0.c (cshift0): Fix 2 typos. From-SVN: r139117 --- libgfortran/ChangeLog | 5 +++++ libgfortran/intrinsics/cshift0.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3131fa3ceb5a..f2eb39188e5d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2008-08-14 H.J. Lu + + PR libfortran/37123 + * intrinsics/cshift0.c (cshift0): Fix 2 typos. + 2008-08-14 Thomas Koenig PR libfortran/36886 diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index fa55b5048208..73849d1a44fb 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)) -- 2.47.2