diff options
Diffstat (limited to 'libgfortran/intrinsics/unpack_generic.c')
| -rw-r--r-- | libgfortran/intrinsics/unpack_generic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/intrinsics/unpack_generic.c b/libgfortran/intrinsics/unpack_generic.c index d8e1230a79c..929e1c36397 100644 --- a/libgfortran/intrinsics/unpack_generic.c +++ b/libgfortran/intrinsics/unpack_generic.c @@ -87,7 +87,7 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector, mstride[n] = mask->dim[n].stride; rs *= extent[n]; } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size (rs * size); } else |