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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 3131fa3ceb5a6f19f5f1388a3fa4a2affc86454b..f2eb39188e5d93dc05540ff6b597a10aab61fbd1 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 fa55b50482081f37449296edf1d608816218fb1a..73849d1a44fbf90e3e5335cf4d70db9a4b9314eb 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))