diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-09-03 09:36:36 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-09-03 09:36:36 +0200 |
| commit | ee5111a4417b8e62a1d6b8d83ca729338ea1c7c2 (patch) | |
| tree | 04d7c9e7f269c1706301b3504a040ef1ec72e9a4 | |
| parent | e12c40944905e48a1830861c63e6e39ae67eb8b0 (diff) | |
| download | gcc-ee5111a4417b8e62a1d6b8d83ca729338ea1c7c2.zip gcc-ee5111a4417b8e62a1d6b8d83ca729338ea1c7c2.tar.gz gcc-ee5111a4417b8e62a1d6b8d83ca729338ea1c7c2.tar.bz2 | |
re PR fortran/41219 (libgfortran build warnings)
2009-09-03 Tobias Burnus <burnus@net-b.de>
PR fortran/41219
* intrinsics/iso_c_binding.c (c_f_pointer_u0): Move variable
declaration out of the loop.
From-SVN: r151371
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/iso_c_binding.c | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index f1ac312..065a4ba 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2009-09-03 Tobias Burnus <burnus@net-b.de> + + PR fortran/41219 + * intrinsics/iso_c_binding.c (c_f_pointer_u0): Move variable + declaration out of the loop. + 2009-08-30 Thomas Koenig <tkoenig@gcc.gnu.org> * m4/pack.m4 (pack_'rtype_code`): Use count_0 for counting true diff --git a/libgfortran/intrinsics/iso_c_binding.c b/libgfortran/intrinsics/iso_c_binding.c index 569b122..ea1bab3 100644 --- a/libgfortran/intrinsics/iso_c_binding.c +++ b/libgfortran/intrinsics/iso_c_binding.c @@ -95,7 +95,7 @@ ISO_C_BINDING_PREFIX (c_f_pointer_u0) (void *c_ptr_in, if (shape != NULL) { index_type source_stride; - index_type size; + index_type size, str; char *p; f_ptr_out->offset = 0; @@ -109,7 +109,7 @@ ISO_C_BINDING_PREFIX (c_f_pointer_u0) (void *c_ptr_in, shapeSize = GFC_DESCRIPTOR_EXTENT(shape,0); for (i = 0; i < shapeSize; i++) { - index_type str, ub; + index_type ub; /* Have to allow for the SHAPE array to be any valid kind for an INTEGER type. */ |