OSDN Git Service

* m4/ifunction_logical.m4: Add casts to get rid of warnings.
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 25 Feb 2008 12:02:56 +0000 (12:02 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 25 Feb 2008 12:02:56 +0000 (12:02 +0000)
* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@132619 138bc75d-0d04-0410-961f-82ee72b054a4

17 files changed:
libgfortran/ChangeLog
libgfortran/generated/all_l1.c
libgfortran/generated/all_l16.c
libgfortran/generated/all_l2.c
libgfortran/generated/all_l4.c
libgfortran/generated/all_l8.c
libgfortran/generated/any_l1.c
libgfortran/generated/any_l16.c
libgfortran/generated/any_l2.c
libgfortran/generated/any_l4.c
libgfortran/generated/any_l8.c
libgfortran/generated/count_16_l.c
libgfortran/generated/count_1_l.c
libgfortran/generated/count_2_l.c
libgfortran/generated/count_4_l.c
libgfortran/generated/count_8_l.c
libgfortran/m4/ifunction_logical.m4

index c2c9387..94c5c67 100644 (file)
@@ -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
index 47cf222..385726a 100644 (file)
@@ -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)
        {
index ca147e7..fd6a9f0 100644 (file)
@@ -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)
        {
index 9e4ab72..16b4ec9 100644 (file)
@@ -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)
        {
index 255881b..ef8bdcd 100644 (file)
@@ -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)
        {
index 00ba59f..8e7a659 100644 (file)
@@ -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)
        {
index 9781a43..8975438 100644 (file)
@@ -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)
        {
index b0e95a6..060a4b8 100644 (file)
@@ -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)
        {
index 6a42be0..73db5ae 100644 (file)
@@ -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)
        {
index eb37296..3e239ca 100644 (file)
@@ -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)
        {
index b5b52a0..3ea80dd 100644 (file)
@@ -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)
        {
index d3f15d7..654c549 100644 (file)
@@ -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)
        {
index 78d82c0..ab2d0ea 100644 (file)
@@ -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)
        {
index eb03c2d..bb29d4f 100644 (file)
@@ -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)
        {
index 58dcd77..82926bd 100644 (file)
@@ -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)
        {
index b7db60e..9cb094f 100644 (file)
@@ -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)
        {
index b2acb32..8666870 100644 (file)
@@ -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)
        {