diff options
Diffstat (limited to 'libgfortran/generated/in_pack_c4.c')
| -rw-r--r-- | libgfortran/generated/in_pack_c4.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/libgfortran/generated/in_pack_c4.c b/libgfortran/generated/in_pack_c4.c index 41409542d49..55fdd76a5d5 100644 --- a/libgfortran/generated/in_pack_c4.c +++ b/libgfortran/generated/in_pack_c4.c @@ -43,7 +43,6 @@ internal_pack_c4 (gfc_array_c4 * source) const GFC_COMPLEX_4 *src; GFC_COMPLEX_4 * restrict dest; GFC_COMPLEX_4 *destptr; - int n; int packed; /* TODO: Investigate how we can figure out if this is a temporary @@ -52,7 +51,7 @@ internal_pack_c4 (gfc_array_c4 * source) dim = GFC_DESCRIPTOR_RANK (source); ssize = 1; packed = 1; - for (n = 0; n < dim; n++) + for (index_type n = 0; n < dim; n++) { count[n] = 0; stride[n] = GFC_DESCRIPTOR_STRIDE(source,n); @@ -88,7 +87,7 @@ internal_pack_c4 (gfc_array_c4 * source) src += 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 |