re PR fortran/36518 (libgfortran: "warning: format '%d' expects type 'int', but")

2008-06-13  Tobias Burnus  <burnus@net-b.de>

        PR libgfortran/36518
        * configure.ac (AM_CFLAGS): Add -Werror.
        * configure: Regenerate.
        * m4/ifunction_logical.m4: Cast "n" to "(int)".
        * generated/any_l16.c: Regenerate.
        * generated/any_l2.c: Regenerate.
        * generated/all_l1.c: Regenerate.
        * generated/all_l2.c: Regenerate.
        * generated/all_l16.c: Regenerate.
        * generated/any_l4.c: Regenerate.
        * generated/count_4_l.c: Regenerate.
        * generated/count_8_l.c: Regenerate.
        * generated/all_l4.c: Regenerate.
        * generated/count_1_l.c: Regenerate.
        * generated/count_16_l.c: Regenerate.
        * generated/any_l8.c: Regenerate.
        * generated/count_2_l.c: Regenerate.
        * generated/any_l1.c: Regenerate.
        * generated/all_l8.c: Regenerate.

From-SVN: r136761

diff --git a/libgfortran/configure b/libgfortran/configure
index a973ea28b4f74dd84cc16bce03fe1bbb1e06129d..2a3376efe20d9336c40c3e5ae4181e82921e086f 100755 (executable)
--- a/libgfortran/configure
+++ b/libgfortran/configure
@@ -3399,7 +3399,7 @@ if test "x$GCC" = "xyes"; then
   AM_FCFLAGS="-I . -Wall -Werror -fimplicit-none -fno-repack-arrays -fno-underscoring"
   ## We like to use C99 routines when available.  This makes sure that
   ## __STDC_VERSION__ is set such that libc includes make them available.
-  AM_CFLAGS="-std=gnu99 -Wall -Wstrict-prototypes -Wmissing-prototypes -Wold-style-definition -Wextra -Wwrite-strings"
+  AM_CFLAGS="-std=gnu99 -Werror -Wall -Wstrict-prototypes -Wmissing-prototypes -Wold-style-definition -Wextra -Wwrite-strings"
   ## Compile the following tests with the same system header contents
   ## that we'll encounter when compiling our own source files.
   CFLAGS="-std=gnu99 $CFLAGS"

diff --git a/libgfortran/configure.ac b/libgfortran/configure.ac
index 47d453aaf5747b1ffd2fa24d284a8979e4feb57d..4d01815bb9fb47a50162559e05ce63b936719af3 100644 (file)
--- a/libgfortran/configure.ac
+++ b/libgfortran/configure.ac
@@ -126,7 +126,7 @@ if test "x$GCC" = "xyes"; then
   AM_FCFLAGS="-I . -Wall -Werror -fimplicit-none -fno-repack-arrays -fno-underscoring"
   ## We like to use C99 routines when available.  This makes sure that
   ## __STDC_VERSION__ is set such that libc includes make them available.
-  AM_CFLAGS="-std=gnu99 -Wall -Wstrict-prototypes -Wmissing-prototypes -Wold-style-definition -Wextra -Wwrite-strings"
+  AM_CFLAGS="-std=gnu99 -Werror -Wall -Wstrict-prototypes -Wmissing-prototypes -Wold-style-definition -Wextra -Wwrite-strings"
   ## Compile the following tests with the same system header contents
   ## that we'll encounter when compiling our own source files.
   CFLAGS="-std=gnu99 $CFLAGS"

diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c
index 8345adc1f6e65ad931fa7db28be8defdd4d63382..e8577dcf33965bc67af339496f4111f9670211b1 100644 (file)
--- a/libgfortran/generated/all_l1.c
+++ b/libgfortran/generated/all_l1.c
@@ -138,7 +138,7 @@ all_l1 (gfc_array_l1 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " ALL intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c
index ee6f8f93c9fbd565d236687ad9cf16e44b9dce58..59b0cfa513a1ef108cabf7a32e4b17e627f72fdb 100644 (file)
--- a/libgfortran/generated/all_l16.c
+++ b/libgfortran/generated/all_l16.c
@@ -138,7 +138,7 @@ all_l16 (gfc_array_l16 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " ALL intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/all_l2.c b/libgfortran/generated/all_l2.c
index dd069c57d61251b041dd67c7d034be6f23981af1..82ab0ca20726746193670b81cd349cc41981ded2 100644 (file)
--- a/libgfortran/generated/all_l2.c
+++ b/libgfortran/generated/all_l2.c
@@ -138,7 +138,7 @@ all_l2 (gfc_array_l2 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " ALL intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c
index 00a0896f669fd9759841a2b8e1ec314c5dd69048..d65adcd9fc57ce30c884cae87bf25c16b00b5a2f 100644 (file)
--- a/libgfortran/generated/all_l4.c
+++ b/libgfortran/generated/all_l4.c
@@ -138,7 +138,7 @@ all_l4 (gfc_array_l4 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " ALL intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c
index b08c19cdba57a3b1eb9fe88eaf9940653c28f412..fdf20a2f11bfc63fa02bf3d4c46ef497d7cb29f8 100644 (file)
--- a/libgfortran/generated/all_l8.c
+++ b/libgfortran/generated/all_l8.c
@@ -138,7 +138,7 @@ all_l8 (gfc_array_l8 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " ALL intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/any_l1.c b/libgfortran/generated/any_l1.c
index 2d11eb1a3b403c45c1f9c6882343ac7e05735662..cfefe47a2680fd57c8d99aa09ebcdb0b399c0433 100644 (file)
--- a/libgfortran/generated/any_l1.c
+++ b/libgfortran/generated/any_l1.c
@@ -138,7 +138,7 @@ any_l1 (gfc_array_l1 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " ANY intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c
index 3d7cd1b1ef9c8d5a4d2520d3b3d0c66b0b35c0d9..c3297ac5c7f7fe06937b0490d7383705f7efd432 100644 (file)
--- a/libgfortran/generated/any_l16.c
+++ b/libgfortran/generated/any_l16.c
@@ -138,7 +138,7 @@ any_l16 (gfc_array_l16 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " ANY intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/any_l2.c b/libgfortran/generated/any_l2.c
index 1c874182b3e2e8c49b9609758846c9b7af1d4602..daef183cb199e9131561c2ed02edc84c9f300517 100644 (file)
--- a/libgfortran/generated/any_l2.c
+++ b/libgfortran/generated/any_l2.c
@@ -138,7 +138,7 @@ any_l2 (gfc_array_l2 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " ANY intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c
index 71a8cb0e63fb080d8009bec4b51c6ac571205a07..d12c74f87c0ba694c1e08050b1d23e3036866125 100644 (file)
--- a/libgfortran/generated/any_l4.c
+++ b/libgfortran/generated/any_l4.c
@@ -138,7 +138,7 @@ any_l4 (gfc_array_l4 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " ANY intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c
index 55ff7a601b0d193f834a9c0c73dba570cf8e3279..bb65480d67cf7921f6f51ea9dd24ec9e14b65d4f 100644 (file)
--- a/libgfortran/generated/any_l8.c
+++ b/libgfortran/generated/any_l8.c
@@ -138,7 +138,7 @@ any_l8 (gfc_array_l8 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " ANY intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/count_16_l.c b/libgfortran/generated/count_16_l.c
index 638fb179e2517d4efcf9f8cc64293791b2868032..7a86fafa99a7f26fd05d415aa0e8bc9000aa4b10 100644 (file)
--- a/libgfortran/generated/count_16_l.c
+++ b/libgfortran/generated/count_16_l.c
@@ -138,7 +138,7 @@ count_16_l (gfc_array_i16 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " COUNT intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/count_1_l.c b/libgfortran/generated/count_1_l.c
index 52ae34baa5f39c430932ce7b1797365ca1736c86..67c9dbcf5d0bbb0fde01f0dbb5086cc05f49ae7f 100644 (file)
--- a/libgfortran/generated/count_1_l.c
+++ b/libgfortran/generated/count_1_l.c
@@ -138,7 +138,7 @@ count_1_l (gfc_array_i1 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " COUNT intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/count_2_l.c b/libgfortran/generated/count_2_l.c
index ddede7160f587d2d35b58d2b6faecbbf0ea93c02..d40d0dcea524195d9cbbb6a2529b39a3c5ccbbf6 100644 (file)
--- a/libgfortran/generated/count_2_l.c
+++ b/libgfortran/generated/count_2_l.c
@@ -138,7 +138,7 @@ count_2_l (gfc_array_i2 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " COUNT intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/count_4_l.c b/libgfortran/generated/count_4_l.c
index 6bdc9ca18bf2273f3da8774a31212c665d1726d0..8bd1c8f16eae77db15a0b3fa70796f0345babdc9 100644 (file)
--- a/libgfortran/generated/count_4_l.c
+++ b/libgfortran/generated/count_4_l.c
@@ -138,7 +138,7 @@ count_4_l (gfc_array_i4 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " COUNT intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/generated/count_8_l.c b/libgfortran/generated/count_8_l.c
index 3c1c565361089ba55a97a7a9c19f09f240e7ee9a..078a33fa5aa96eae4bd822435fdd0474b443c88f 100644 (file)
--- a/libgfortran/generated/count_8_l.c
+++ b/libgfortran/generated/count_8_l.c
@@ -138,7 +138,7 @@ count_8_l (gfc_array_i8 * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " COUNT intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }

diff --git a/libgfortran/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4
index a31d73a17b93a43a7be91ea4ee97d327ecdc41cd..214be04c2d866d522728204fe95aed26c527d5ca 100644 (file)
--- a/libgfortran/m4/ifunction_logical.m4
+++ b/libgfortran/m4/ifunction_logical.m4
@@ -121,7 +121,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
              if (extent[n] != ret_extent)
                runtime_error ("Incorrect extent in return value of"
                               " u_name intrinsic in dimension %d:"
-                              " is %ld, should be %ld", n + 1,
+                              " is %ld, should be %ld", (int) n + 1,
                               (long int) ret_extent, (long int) extent[n]);
            }
        }