From: H.J. Lu Date: Thu, 14 Aug 2008 21:36:31 +0000 (+0000) Subject: re PR libfortran/37123 (libfortran failed to build) X-Git-Tag: releases/gcc-4.4.0~3131 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6f010296a476e59b26b2e4ba0d5a0e3dc66f1e0a;p=thirdparty%2Fgcc.git 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 --- 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))