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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 3131fa3..f2eb391 100644 (file)
--- 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 (file)
--- 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))