Skip to content

R
riscv-gcc-1
Commit 6f010296 by H.J. Lu Committed by H.J. Lu
Options

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
parent beb4bd6c
Showing with 7 additions and 2 deletions
libgfortran/ChangeLog
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
......
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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment