libgfortran/runtime/in_pack_generic.c

33 internal_pack (gfc_array_char * source)
48   if (source->base_addr == NULL)
51   type_size = GFC_DTYPE_TYPE_SIZE(source);
52   size = GFC_DESCRIPTOR_SIZE (source);
57       return internal_pack_1 ((gfc_array_i1 *) source);
61       return internal_pack_2 ((gfc_array_i2 *) source);
65       return internal_pack_4 ((gfc_array_i4 *) source);
69       return internal_pack_8 ((gfc_array_i8 *) source);
74       return internal_pack_16 ((gfc_array_i16 *) source);
77       return internal_pack_r4 ((gfc_array_r4 *) source);
80       return internal_pack_r8 ((gfc_array_r8 *) source);
91       return internal_pack_r10 ((gfc_array_r10 *) source);
96       return internal_pack_r16 ((gfc_array_r16 *) source);
101       return internal_pack_c4 ((gfc_array_c4 *) source);
104       return internal_pack_c8 ((gfc_array_c8 *) source);
115       return internal_pack_c10 ((gfc_array_c10 *) source);
120       return internal_pack_c16 ((gfc_array_c16 *) source);
128   switch(GFC_DESCRIPTOR_SIZE (source))
131       return internal_pack_1 ((gfc_array_i1 *) source);
134       if (GFC_UNALIGNED_2(source->base_addr))
137 	return internal_pack_2 ((gfc_array_i2 *) source);
140       if (GFC_UNALIGNED_4(source->base_addr))
143 	return internal_pack_4 ((gfc_array_i4 *) source);
146       if (GFC_UNALIGNED_8(source->base_addr))
149 	return internal_pack_8 ((gfc_array_i8 *) source);
153       if (GFC_UNALIGNED_16(source->base_addr))
156 	return internal_pack_16 ((gfc_array_i16 *) source);
162   dim = GFC_DESCRIPTOR_RANK (source);
168       stride[n] = GFC_DESCRIPTOR_STRIDE(source,n);
169       extent[n] = GFC_DESCRIPTOR_EXTENT(source,n);
184     return source->base_addr;
189   src = source->base_addr;
200       /* Advance to the next source element.  */