70 pack_internal (gfc_array_char *ret, const gfc_array_char *array,  in pack_internal()  argument
95   dim = GFC_DESCRIPTOR_RANK (array);  in pack_internal()
97   sptr = array->base_addr;  in pack_internal()
122       extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);  in pack_internal()
125       sstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(array,n);  in pack_internal()
136     sptr = array->base_addr;  in pack_internal()
255 pack (gfc_array_char *ret, const gfc_array_char *array,  in pack()  argument
261   type_size = GFC_DTYPE_TYPE_SIZE(array);  in pack()
267       pack_i1 ((gfc_array_i1 *) ret, (gfc_array_i1 *) array,  in pack()
273       pack_i2 ((gfc_array_i2 *) ret, (gfc_array_i2 *) array,  in pack()
279       pack_i4 ((gfc_array_i4 *) ret, (gfc_array_i4 *) array,  in pack()
285       pack_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) array,  in pack()
292       pack_i16 ((gfc_array_i16 *) ret, (gfc_array_i16 *) array,  in pack()
298       pack_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) array,  in pack()
303       pack_r8 ((gfc_array_r8 *) ret, (gfc_array_r8 *) array,  in pack()
316       pack_r10 ((gfc_array_r10 *) ret, (gfc_array_r10 *) array,  in pack()
323       pack_r16 ((gfc_array_r16 *) ret, (gfc_array_r16 *) array,  in pack()
330       pack_c4 ((gfc_array_c4 *) ret, (gfc_array_c4 *) array,  in pack()
335       pack_c8 ((gfc_array_c8 *) ret, (gfc_array_c8 *) array,  in pack()
348       pack_c10 ((gfc_array_c10 *) ret, (gfc_array_c10 *) array,  in pack()
355       pack_c16 ((gfc_array_c16 *) ret, (gfc_array_c16 *) array,  in pack()
365   switch (GFC_DESCRIPTOR_SIZE (array))  in pack()
368       pack_i1 ((gfc_array_i1 *) ret, (gfc_array_i1 *) array,  in pack()
373       if (GFC_UNALIGNED_2(ret->base_addr) || GFC_UNALIGNED_2(array->base_addr)  in pack()
378 	  pack_i2 ((gfc_array_i2 *) ret, (gfc_array_i2 *) array,  in pack()
384       if (GFC_UNALIGNED_4(ret->base_addr) || GFC_UNALIGNED_4(array->base_addr)  in pack()
389 	  pack_i4 ((gfc_array_i4 *) ret, (gfc_array_i4 *) array,  in pack()
395       if (GFC_UNALIGNED_8(ret->base_addr) || GFC_UNALIGNED_8(array->base_addr)  in pack()
400 	  pack_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) array,  in pack()
407       if (GFC_UNALIGNED_16(ret->base_addr) || GFC_UNALIGNED_16(array->base_addr)  in pack()
412 	  pack_i16 ((gfc_array_i16 *) ret, (gfc_array_i16 *) array,  in pack()
421   size = GFC_DESCRIPTOR_SIZE (array);  in pack()
422   pack_internal (ret, array, mask, vector, size);  in pack()
434 	   const gfc_array_char *array, const gfc_array_l1 *mask,  in pack_char()  argument
438   pack_internal (ret, array, mask, vector, array_length);  in pack_char()
450 	    const gfc_array_char *array, const gfc_array_l1 *mask,  in pack_char4()  argument
454   pack_internal (ret, array, mask, vector, array_length * sizeof (gfc_char4_t));  in pack_char4()
459 pack_s_internal (gfc_array_char *ret, const gfc_array_char *array,  in pack_s_internal()  argument
479   dim = GFC_DESCRIPTOR_RANK (array);  in pack_s_internal()
487       extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);  in pack_s_internal()
491       sstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(array,n);  in pack_s_internal()
500     sptr = array->base_addr;  in pack_s_internal()
615 extern void pack_s (gfc_array_char *ret, const gfc_array_char *array,
620 pack_s (gfc_array_char *ret, const gfc_array_char *array,  in pack_s()  argument
623   pack_s_internal (ret, array, mask, vector, GFC_DESCRIPTOR_SIZE (array));  in pack_s()
628 			 const gfc_array_char *array, const GFC_LOGICAL_4 *,
636 	     const gfc_array_char *array, const GFC_LOGICAL_4 *mask,  in pack_s_char()  argument
640   pack_s_internal (ret, array, mask, vector, array_length);  in pack_s_char()
645 			  const gfc_array_char *array, const GFC_LOGICAL_4 *,
653 	      const gfc_array_char *array, const GFC_LOGICAL_4 *mask,  in pack_s_char4()  argument
657   pack_s_internal (ret, array, mask, vector,  in pack_s_char4()