diff options
Diffstat (limited to 'libgfortran/intrinsics/transpose_generic.c')
| -rw-r--r-- | libgfortran/intrinsics/transpose_generic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/intrinsics/transpose_generic.c b/libgfortran/intrinsics/transpose_generic.c index 201e3e1e8cb..fd26e605345 100644 --- a/libgfortran/intrinsics/transpose_generic.c +++ b/libgfortran/intrinsics/transpose_generic.c @@ -69,7 +69,7 @@ transpose (gfc_array_char *ret, gfc_array_char *source) ret->dim[1].stride = ret->dim[0].ubound+1; ret->data = internal_malloc_size (size * size0 ((array_t*)ret)); - ret->base = 0; + ret->offset = 0; } sxstride = source->dim[0].stride * size; |