diff options
Diffstat (limited to 'libgfortran/m4/ifunction.m4')
| -rw-r--r-- | libgfortran/m4/ifunction.m4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4 index 7da24108d8b..cafe3f4e8f4 100644 --- a/libgfortran/m4/ifunction.m4 +++ b/libgfortran/m4/ifunction.m4 @@ -77,7 +77,7 @@ name`'rtype_qual`_'atype_code (rtype *retarray, atype *array, index_type *pdim) = internal_malloc_size (sizeof (rtype_name) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -222,7 +222,7 @@ void = internal_malloc_size (sizeof (rtype_name) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else |