30 cshift0 (gfc_array_char * ret, const gfc_array_char * array,  in cshift0()  argument
54   if (which < 1 || which > GFC_DESCRIPTOR_RANK (array))  in cshift0()
57   arraysize = size0 ((array_t *) array);  in cshift0()
64       GFC_DTYPE_COPY(ret,array);  in cshift0()
65       for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)  in cshift0()
69           ub = GFC_DESCRIPTOR_EXTENT(array,i) - 1;  in cshift0()
85       bounds_equal_extents ((array_t *) ret, (array_t *) array,  in cshift0()
92   type_size = GFC_DTYPE_TYPE_SIZE (array);  in cshift0()
98       cshift0_i1 ((gfc_array_i1 *)ret, (gfc_array_i1 *) array, shift, which);  in cshift0()
103       cshift0_i2 ((gfc_array_i2 *)ret, (gfc_array_i2 *) array, shift, which);  in cshift0()
108       cshift0_i4 ((gfc_array_i4 *)ret, (gfc_array_i4 *) array, shift, which);  in cshift0()
113       cshift0_i8 ((gfc_array_i8 *)ret, (gfc_array_i8 *) array, shift, which);  in cshift0()
119       cshift0_i16 ((gfc_array_i16 *)ret, (gfc_array_i16 *) array, shift,  in cshift0()
125       cshift0_r4 ((gfc_array_r4 *)ret, (gfc_array_r4 *) array, shift, which);  in cshift0()
129       cshift0_r8 ((gfc_array_r8 *)ret, (gfc_array_r8 *) array, shift, which);  in cshift0()
141       cshift0_r10 ((gfc_array_r10 *)ret, (gfc_array_r10 *) array, shift,  in cshift0()
148       cshift0_r16 ((gfc_array_r16 *)ret, (gfc_array_r16 *) array, shift,  in cshift0()
155       cshift0_c4 ((gfc_array_c4 *)ret, (gfc_array_c4 *) array, shift, which);  in cshift0()
159       cshift0_c8 ((gfc_array_c8 *)ret, (gfc_array_c8 *) array, shift, which);  in cshift0()
171       cshift0_c10 ((gfc_array_c10 *)ret, (gfc_array_c10 *) array, shift,  in cshift0()
178       cshift0_c16 ((gfc_array_c16 *)ret, (gfc_array_c16 *) array, shift,  in cshift0()
194       cshift0_i1 ((gfc_array_i1 *) ret, (gfc_array_i1 *) array, shift,  in cshift0()
199       if (GFC_UNALIGNED_2(ret->base_addr) || GFC_UNALIGNED_2(array->base_addr))  in cshift0()
203 	  cshift0_i2 ((gfc_array_i2 *) ret, (gfc_array_i2 *) array, shift,  in cshift0()
209       if (GFC_UNALIGNED_4(ret->base_addr) || GFC_UNALIGNED_4(array->base_addr))  in cshift0()
213 	  cshift0_i4 ((gfc_array_i4 *)ret, (gfc_array_i4 *) array, shift,  in cshift0()
219       if (GFC_UNALIGNED_8(ret->base_addr) || GFC_UNALIGNED_8(array->base_addr))  in cshift0()
228 	      || GFC_UNALIGNED_C4(array->base_addr))  in cshift0()
231 	  cshift0_c4 ((gfc_array_c4 *) ret, (gfc_array_c4 *) array, shift,  in cshift0()
237 	  cshift0_i8 ((gfc_array_i8 *)ret, (gfc_array_i8 *) array, shift,  in cshift0()
245 	  || GFC_UNALIGNED_16(array->base_addr))  in cshift0()
254 	      || GFC_UNALIGNED_C8(array->base_addr))  in cshift0()
257 	  cshift0_c8 ((gfc_array_c8 *) ret, (gfc_array_c8 *) array, shift,  in cshift0()
263 	  cshift0_i16 ((gfc_array_i16 *) ret, (gfc_array_i16 *) array,  in cshift0()
271 	  || GFC_UNALIGNED_C8(array->base_addr))  in cshift0()
275 	  cshift0_c8 ((gfc_array_c8 *) ret, (gfc_array_c8 *) array, shift,  in cshift0()
298   for (dim = 0; dim < GFC_DESCRIPTOR_RANK (array); dim++)  in cshift0()
305           soffset = GFC_DESCRIPTOR_STRIDE_BYTES(array,dim);  in cshift0()
308           len = GFC_DESCRIPTOR_EXTENT(array,dim);  in cshift0()
313           extent[n] = GFC_DESCRIPTOR_EXTENT(array,dim);  in cshift0()
315           sstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(array,dim);  in cshift0()
324   dim = GFC_DESCRIPTOR_RANK (array);  in cshift0()
328   sptr = array->base_addr;  in cshift0()
405   cshift0_##N (gfc_array_char *ret, const gfc_array_char *array,	      \
408     cshift0 (ret, array, *pshift, pdim ? *pdim : 1,			      \
409 	     GFC_DESCRIPTOR_SIZE (array));				      \
421 		      const gfc_array_char *array,			      \
426     cshift0 (ret, array, *pshift, pdim ? *pdim : 1, array_length);	      \
438 		       const gfc_array_char *array,			      \
443     cshift0 (ret, array, *pshift, pdim ? *pdim : 1,			      \