re PR fortran/85816 (nested spread fails with "Integer overflow in xmallocarray")

[thirdparty/gcc.git] / libgfortran / generated / count_16_l.c

diff --git a/libgfortran/generated/count_16_l.c b/libgfortran/generated/count_16_l.c
index d099eedc823d43cf7761dbaba6bcd16a7a2b0b29..bd4ab74b41ccf4e964e364b7cd49ec40f0c3940e 100644 (file)
--- a/libgfortran/generated/count_16_l.c
+++ b/libgfortran/generated/count_16_l.c
@@ -97,7 +97,7 @@ count_16_l (gfc_array_i16 * const restrict retarray,
         }
 
       retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
 
       alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];