diff options
Diffstat (limited to 'libgfortran/intrinsics/spread_generic.c')
| -rw-r--r-- | libgfortran/intrinsics/spread_generic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/intrinsics/spread_generic.c b/libgfortran/intrinsics/spread_generic.c index 01152870688..f1035b0c533 100644 --- a/libgfortran/intrinsics/spread_generic.c +++ b/libgfortran/intrinsics/spread_generic.c @@ -105,7 +105,7 @@ spread (gfc_array_char *ret, const gfc_array_char *source, dim++; } } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size (rs * size); } else |