diff options
Diffstat (limited to 'libgfortran/generated/in_unpack_r4.c')
-rw-r--r-- | libgfortran/generated/in_unpack_r4.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/libgfortran/generated/in_unpack_r4.c b/libgfortran/generated/in_unpack_r4.c index 7a26323e930..086cc6ac895 100644 --- a/libgfortran/generated/in_unpack_r4.c +++ b/libgfortran/generated/in_unpack_r4.c @@ -39,7 +39,6 @@ internal_unpack_r4 (gfc_array_r4 * d, const GFC_REAL_4 * src) index_type dim; index_type dsize; GFC_REAL_4 * restrict dest; - int n; dest = d->base_addr; if (src == dest || !src) @@ -47,7 +46,7 @@ internal_unpack_r4 (gfc_array_r4 * d, const GFC_REAL_4 * src) dim = GFC_DESCRIPTOR_RANK (d); dsize = 1; - for (n = 0; n < dim; n++) + for (index_type n = 0; n < dim; n++) { count[n] = 0; stride[n] = GFC_DESCRIPTOR_STRIDE(d,n); @@ -77,7 +76,7 @@ internal_unpack_r4 (gfc_array_r4 * d, const GFC_REAL_4 * src) dest += stride0; count[0]++; /* Advance to the next source element. */ - n = 0; + index_type n = 0; while (count[n] == extent[n]) { /* When we get to the end of a dimension, reset it and increment |