summaryrefslogtreecommitdiff
path: root/libgfortran/generated/transpose_c4.c
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/generated/transpose_c4.c')
-rw-r--r--libgfortran/generated/transpose_c4.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/libgfortran/generated/transpose_c4.c b/libgfortran/generated/transpose_c4.c
index d8811d0ebc2..2d1cc64fb76 100644
--- a/libgfortran/generated/transpose_c4.c
+++ b/libgfortran/generated/transpose_c4.c
@@ -52,13 +52,13 @@ transpose_c4 (gfc_array_c4 * const restrict ret,
if (ret->base_addr == NULL)
{
assert (GFC_DESCRIPTOR_RANK (ret) == 2);
- assert (ret->dtype == source->dtype);
+ assert (ret->type == source->type);
- GFC_DIMENSION_SET(ret->dim[0], 0, GFC_DESCRIPTOR_EXTENT(source,1) - 1,
- 1);
+ GFC_DIMENSION_SET(ret->dim[0], 0, GFC_DESCRIPTOR_EXTENT(source,1),
+ sizeof (GFC_COMPLEX_4));
- GFC_DIMENSION_SET(ret->dim[1], 0, GFC_DESCRIPTOR_EXTENT(source,0) - 1,
- GFC_DESCRIPTOR_EXTENT(source, 1));
+ GFC_DIMENSION_SET(ret->dim[1], 0, GFC_DESCRIPTOR_EXTENT(source,0),
+ GFC_DESCRIPTOR_EXTENT(source, 1)*sizeof (GFC_COMPLEX_4));
ret->base_addr = xmallocarray (size0 ((array_t *) ret),
sizeof (GFC_COMPLEX_4));
@@ -87,13 +87,13 @@ transpose_c4 (gfc_array_c4 * const restrict ret,
}
- sxstride = GFC_DESCRIPTOR_STRIDE(source,0);
- systride = GFC_DESCRIPTOR_STRIDE(source,1);
+ sxstride = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(source,0);
+ systride = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(source,1);
xcount = GFC_DESCRIPTOR_EXTENT(source,0);
ycount = GFC_DESCRIPTOR_EXTENT(source,1);
- rxstride = GFC_DESCRIPTOR_STRIDE(ret,0);
- rystride = GFC_DESCRIPTOR_STRIDE(ret,1);
+ rxstride = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(ret,0);
+ rystride = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(ret,1);
rptr = ret->base_addr;
sptr = source->base_addr;