diff options
Diffstat (limited to 'libgfortran/generated/transpose_r16.c')
| -rw-r--r-- | libgfortran/generated/transpose_r16.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/libgfortran/generated/transpose_r16.c b/libgfortran/generated/transpose_r16.c index 2e4fd24bfc2..5e6e421101a 100644 --- a/libgfortran/generated/transpose_r16.c +++ b/libgfortran/generated/transpose_r16.c @@ -52,13 +52,13 @@ transpose_r16 (gfc_array_r16 * 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_REAL_16)); - 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_REAL_16)); ret->base_addr = xmallocarray (size0 ((array_t *) ret), sizeof (GFC_REAL_16)); @@ -87,13 +87,13 @@ transpose_r16 (gfc_array_r16 * 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; |