diff options
Diffstat (limited to 'libgfortran/generated/reshape_r10.c')
| -rw-r--r-- | libgfortran/generated/reshape_r10.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/generated/reshape_r10.c b/libgfortran/generated/reshape_r10.c index e2f6cb64604..2d16a1c2dd0 100644 --- a/libgfortran/generated/reshape_r10.c +++ b/libgfortran/generated/reshape_r10.c @@ -116,7 +116,7 @@ reshape_r10 (gfc_array_r10 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) |