diff options
Diffstat (limited to 'libgfortran/m4/ifunction-s2.m4')
| -rw-r--r-- | libgfortran/m4/ifunction-s2.m4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/m4/ifunction-s2.m4 b/libgfortran/m4/ifunction-s2.m4 index 4eb0908..27c2236 100644 --- a/libgfortran/m4/ifunction-s2.m4 +++ b/libgfortran/m4/ifunction-s2.m4 @@ -104,7 +104,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, } retarray->offset = 0; - retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; + GFC_DTYPE_COPY_SETRANK(retarray,array,rank); alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; @@ -296,7 +296,7 @@ void * string_len; retarray->offset = 0; - retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; + GFC_DTYPE_COPY_SETRANK(retarray,array,rank); if (alloc_size == 0) { @@ -457,7 +457,7 @@ void } retarray->offset = 0; - retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; + GFC_DTYPE_COPY_SETRANK(retarray,array,rank); alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; |