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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f1ac312833b6bba84e759ffecd338ba73cbed815..065a4ba3c73f9267d4f9a7f487b0137586beda4f 100644 (file)
--- 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 569b122f2360b297ac1736d3086e315595120d5d..ea1bab39501b870c8ba289907908bd954fa32ef2 100644 (file)
--- 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.  */