ifunction_logical.m4: Add casts to get rid of warnings.

	* m4/ifunction_logical.m4: Add casts to get rid of warnings.
	* generated/all_l1.c: Regenerate.
	* generated/all_l2.c: Regenerate.
	* generated/all_l4.c: Regenerate.
	* generated/all_l8.c: Regenerate.
	* generated/all_l16.c: Regenerate.
	* generated/any_l1.c: Regenerate.
	* generated/any_l2.c: Regenerate.
	* generated/any_l4.c: Regenerate.
	* generated/any_l8.c: Regenerate.
	* generated/any_l16.c: Regenerate.
	* generated/count_1_l.c: Regenerate.
	* generated/count_2_l.c: Regenerate.
	* generated/count_4_l.c: Regenerate.
	* generated/count_8_l.c: Regenerate.
	* generated/count_16_l.c: Regenerate.

From-SVN: r132619

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index c2c93879058e2c25af3e48ae70ab87d375c5964e..94c5c672c723416be1b525148d05ae83f2f57524 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,22 @@
+2008-02-25  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       * m4/ifunction_logical.m4: Add casts to get rid of warnings.
+       * generated/all_l1.c: Regenerate.
+       * generated/all_l2.c: Regenerate.
+       * generated/all_l4.c: Regenerate.
+       * generated/all_l8.c: Regenerate.
+       * generated/all_l16.c: Regenerate.
+       * generated/any_l1.c: Regenerate.
+       * generated/any_l2.c: Regenerate.
+       * generated/any_l4.c: Regenerate.
+       * generated/any_l8.c: Regenerate.
+       * generated/any_l16.c: Regenerate.
+       * generated/count_1_l.c: Regenerate.
+       * generated/count_2_l.c: Regenerate.
+       * generated/count_4_l.c: Regenerate.
+       * generated/count_8_l.c: Regenerate.
+       * generated/count_16_l.c: Regenerate.
+
 2008-02-24  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        PR libfortran/32841

diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c
index 47cf2220d339c70bf1a1dabc54003dd4a679897a..385726af3994c95b0cf04979e4176221ea21e8cc 100644 (file)
--- a/libgfortran/generated/all_l1.c
+++ b/libgfortran/generated/all_l1.c
@@ -119,8 +119,9 @@ all_l1 (gfc_array_l1 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " ALL intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " ALL intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c
index ca147e7d39fcc0b26b11fd872f8c8f4f793fa54d..fd6a9f0b7156e7cb8de35083aa84d55e8d4fbb20 100644 (file)
--- a/libgfortran/generated/all_l16.c
+++ b/libgfortran/generated/all_l16.c
@@ -119,8 +119,9 @@ all_l16 (gfc_array_l16 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " ALL intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " ALL intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/all_l2.c b/libgfortran/generated/all_l2.c
index 9e4ab72b30cdfab6d001b02fe3811b626dfae8cf..16b4ec94ea1dabcc5b7f301d79105ce9bf3d9ca3 100644 (file)
--- a/libgfortran/generated/all_l2.c
+++ b/libgfortran/generated/all_l2.c
@@ -119,8 +119,9 @@ all_l2 (gfc_array_l2 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " ALL intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " ALL intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c
index 255881b9112808d28539901e6541efd681f3315a..ef8bdcdddbae45ade0728f48f4c46fc0a67034c7 100644 (file)
--- a/libgfortran/generated/all_l4.c
+++ b/libgfortran/generated/all_l4.c
@@ -119,8 +119,9 @@ all_l4 (gfc_array_l4 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " ALL intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " ALL intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c
index 00ba59f10341b231a1455119217d9acada71261e..8e7a659a2832b797de4312343a663b68d84adae5 100644 (file)
--- a/libgfortran/generated/all_l8.c
+++ b/libgfortran/generated/all_l8.c
@@ -119,8 +119,9 @@ all_l8 (gfc_array_l8 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " ALL intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " ALL intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/any_l1.c b/libgfortran/generated/any_l1.c
index 9781a43c2cbd458ae3543a3ba318ad3acfbff254..8975438ae59b6e2ca6af7aff6e8b80bd66d8fd13 100644 (file)
--- a/libgfortran/generated/any_l1.c
+++ b/libgfortran/generated/any_l1.c
@@ -119,8 +119,9 @@ any_l1 (gfc_array_l1 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " ANY intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " ANY intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c
index b0e95a6dad6e1d0bc0b3e7179cae10de3d7a30c5..060a4b82127723bf00a3db776717fa42a2b24708 100644 (file)
--- a/libgfortran/generated/any_l16.c
+++ b/libgfortran/generated/any_l16.c
@@ -119,8 +119,9 @@ any_l16 (gfc_array_l16 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " ANY intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " ANY intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/any_l2.c b/libgfortran/generated/any_l2.c
index 6a42be0fcbcf18154028be46fd3c7deec24a22ad..73db5aea082de39db7f94c03ce49d18abc588420 100644 (file)
--- a/libgfortran/generated/any_l2.c
+++ b/libgfortran/generated/any_l2.c
@@ -119,8 +119,9 @@ any_l2 (gfc_array_l2 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " ANY intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " ANY intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c
index eb3729690305314fd00369d4a1593ddb148e822c..3e239cab10680ffff3fc807cb228cad133d21044 100644 (file)
--- a/libgfortran/generated/any_l4.c
+++ b/libgfortran/generated/any_l4.c
@@ -119,8 +119,9 @@ any_l4 (gfc_array_l4 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " ANY intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " ANY intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c
index b5b52a0b81b59f3920f2f690eb7fd069e35b614e..3ea80dd3e315562cf04e6ee5b25b0699e4c369b1 100644 (file)
--- a/libgfortran/generated/any_l8.c
+++ b/libgfortran/generated/any_l8.c
@@ -119,8 +119,9 @@ any_l8 (gfc_array_l8 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " ANY intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " ANY intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/count_16_l.c b/libgfortran/generated/count_16_l.c
index d3f15d7119d0cda4e74937f30a9787d9b22b896f..654c5495dec4f32e8c2f1d10c9039d5322b22370 100644 (file)
--- a/libgfortran/generated/count_16_l.c
+++ b/libgfortran/generated/count_16_l.c
@@ -119,8 +119,9 @@ count_16_l (gfc_array_i16 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " COUNT intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " COUNT intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/count_1_l.c b/libgfortran/generated/count_1_l.c
index 78d82c0ea36fe037c775c237ddf207eabb964a38..ab2d0eac21adb2bb2f10ca5d67a928c29b9d7872 100644 (file)
--- a/libgfortran/generated/count_1_l.c
+++ b/libgfortran/generated/count_1_l.c
@@ -119,8 +119,9 @@ count_1_l (gfc_array_i1 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " COUNT intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " COUNT intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/count_2_l.c b/libgfortran/generated/count_2_l.c
index eb03c2d5c5fc381c3d3c51b85bf78f8047894ae4..bb29d4f3c4f5688f77d14e1cb496c365df639d8c 100644 (file)
--- a/libgfortran/generated/count_2_l.c
+++ b/libgfortran/generated/count_2_l.c
@@ -119,8 +119,9 @@ count_2_l (gfc_array_i2 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " COUNT intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " COUNT intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/count_4_l.c b/libgfortran/generated/count_4_l.c
index 58dcd77c731b512cf832ac97a926f08de77fc866..82926bd522eabdccace3f1559f7951ccd6f5b4a8 100644 (file)
--- a/libgfortran/generated/count_4_l.c
+++ b/libgfortran/generated/count_4_l.c
@@ -119,8 +119,9 @@ count_4_l (gfc_array_i4 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " COUNT intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " COUNT intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/generated/count_8_l.c b/libgfortran/generated/count_8_l.c
index b7db60e00b09eada31821cce1cf3494b3540999e..9cb094f81cd0447ffa643c53e316f2bffc85d6a7 100644 (file)
--- a/libgfortran/generated/count_8_l.c
+++ b/libgfortran/generated/count_8_l.c
@@ -119,8 +119,9 @@ count_8_l (gfc_array_i8 * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " COUNT intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " COUNT intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {

diff --git a/libgfortran/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4
index b2acb32f1151797b97e2dc922130a2ad5be939f7..8666870c88e0c5c80cae35047f1dda3f4a27fcde 100644 (file)
--- a/libgfortran/m4/ifunction_logical.m4
+++ b/libgfortran/m4/ifunction_logical.m4
@@ -102,8 +102,9 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
     {
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect in"
-                      " u_name intrinsic: is %d, should be %d",
-                      GFC_DESCRIPTOR_RANK (retarray), rank);
+                      " u_name intrinsic: is %ld, should be %ld",
+                      (long int) GFC_DESCRIPTOR_RANK (retarray),
+                      (long int) rank);
 
       if (compile_options.bounds_check)
        {