diff options
Diffstat (limited to 'libgfortran/generated/transpose_c4.c')
| -rw-r--r-- | libgfortran/generated/transpose_c4.c | 18 |
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; |