From 60dcf38a00c16f909d8a80177581bf493b2552ca Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Fri, 13 Jun 2008 20:43:25 +0200 Subject: [PATCH] re PR fortran/36518 (libgfortran: "warning: format '%d' expects type 'int', but") 2008-06-13 Tobias Burnus 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 --- libgfortran/configure | 2 +- libgfortran/configure.ac | 2 +- libgfortran/generated/all_l1.c | 2 +- libgfortran/generated/all_l16.c | 2 +- libgfortran/generated/all_l2.c | 2 +- libgfortran/generated/all_l4.c | 2 +- libgfortran/generated/all_l8.c | 2 +- libgfortran/generated/any_l1.c | 2 +- libgfortran/generated/any_l16.c | 2 +- libgfortran/generated/any_l2.c | 2 +- libgfortran/generated/any_l4.c | 2 +- libgfortran/generated/any_l8.c | 2 +- libgfortran/generated/count_16_l.c | 2 +- libgfortran/generated/count_1_l.c | 2 +- libgfortran/generated/count_2_l.c | 2 +- libgfortran/generated/count_4_l.c | 2 +- libgfortran/generated/count_8_l.c | 2 +- libgfortran/m4/ifunction_logical.m4 | 2 +- 18 files changed, 18 insertions(+), 18 deletions(-) diff --git a/libgfortran/configure b/libgfortran/configure index a973ea28b4f..2a3376efe20 100755 --- 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 47d453aaf57..4d01815bb9f 100644 --- 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 8345adc1f6e..e8577dcf339 100644 --- 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 ee6f8f93c9f..59b0cfa513a 100644 --- 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 dd069c57d61..82ab0ca2072 100644 --- 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 00a0896f669..d65adcd9fc5 100644 --- 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 b08c19cdba5..fdf20a2f11b 100644 --- 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 2d11eb1a3b4..cfefe47a268 100644 --- 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 3d7cd1b1ef9..c3297ac5c7f 100644 --- 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 1c874182b3e..daef183cb19 100644 --- 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 71a8cb0e63f..d12c74f87c0 100644 --- 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 55ff7a601b0..bb65480d67c 100644 --- 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 638fb179e25..7a86fafa99a 100644 --- 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 52ae34baa5f..67c9dbcf5d0 100644 --- 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 ddede7160f5..d40d0dcea52 100644 --- 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 6bdc9ca18bf..8bd1c8f16ea 100644 --- 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 3c1c5653610..078a33fa5aa 100644 --- 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 a31d73a17b9..214be04c2d8 100644 --- 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]); } } -- 2.30.2