Mercurial > hg > CbC > CbC_gcc
diff libgfortran/generated/in_pack_r4.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
line wrap: on
line diff
--- a/libgfortran/generated/in_pack_r4.c Fri Oct 27 22:46:09 2017 +0900 +++ b/libgfortran/generated/in_pack_r4.c Thu Oct 25 07:37:49 2018 +0900 @@ -1,5 +1,5 @@ /* Helper function for repacking arrays. - Copyright (C) 2003-2017 Free Software Foundation, Inc. + Copyright (C) 2003-2018 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran runtime library (libgfortran). @@ -43,7 +43,6 @@ const GFC_REAL_4 *src; GFC_REAL_4 * restrict dest; GFC_REAL_4 *destptr; - int n; int packed; /* TODO: Investigate how we can figure out if this is a temporary @@ -52,7 +51,7 @@ 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 @@ 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