OSDN Git Service

* simplify.c (gfc_simplify_bessel_j0,gfc_simplify_bessel_j1,
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 6 May 2008 20:28:19 +0000 (20:28 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 6 May 2008 20:28:19 +0000 (20:28 +0000)
gfc_simplify_bessel_jn,gfc_simplify_bessel_y0,
gfc_simplify_bessel_y1,gfc_simplify_bessel_yn): Mark arguments
with ATTRIBUTE_UNUSED.

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

gcc/fortran/ChangeLog
gcc/fortran/simplify.c

index b67a5b8..083a1de 100644 (file)
@@ -1,5 +1,12 @@
 2008-05-06  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
+       * simplify.c (gfc_simplify_bessel_j0,gfc_simplify_bessel_j1,
+       gfc_simplify_bessel_jn,gfc_simplify_bessel_y0,
+       gfc_simplify_bessel_y1,gfc_simplify_bessel_yn): Mark arguments
+       with ATTRIBUTE_UNUSED.
+
+2008-05-06  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
        * check.c (gfc_check_sizeof): Switch to ATTRIBUTE_UNUSED.
        * simplify.c (gfc_simplify_lgamma): Likewise.
 
index d7fafec..5de686f 100644 (file)
@@ -637,7 +637,7 @@ gfc_simplify_atan2 (gfc_expr *y, gfc_expr *x)
 
 
 gfc_expr *
-gfc_simplify_bessel_j0 (gfc_expr *x)
+gfc_simplify_bessel_j0 (gfc_expr *x ATTRIBUTE_UNUSED)
 {
 #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0)
   gfc_expr *result;
@@ -657,7 +657,7 @@ gfc_simplify_bessel_j0 (gfc_expr *x)
 
 
 gfc_expr *
-gfc_simplify_bessel_j1 (gfc_expr *x)
+gfc_simplify_bessel_j1 (gfc_expr *x ATTRIBUTE_UNUSED)
 {
 #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0)
   gfc_expr *result;
@@ -677,7 +677,8 @@ gfc_simplify_bessel_j1 (gfc_expr *x)
 
 
 gfc_expr *
-gfc_simplify_bessel_jn (gfc_expr *order, gfc_expr *x)
+gfc_simplify_bessel_jn (gfc_expr *order ATTRIBUTE_UNUSED,
+                       gfc_expr *x ATTRIBUTE_UNUSED)
 {
 #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0)
   gfc_expr *result;
@@ -699,7 +700,7 @@ gfc_simplify_bessel_jn (gfc_expr *order, gfc_expr *x)
 
 
 gfc_expr *
-gfc_simplify_bessel_y0 (gfc_expr *x)
+gfc_simplify_bessel_y0 (gfc_expr *x ATTRIBUTE_UNUSED)
 {
 #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0)
   gfc_expr *result;
@@ -719,7 +720,7 @@ gfc_simplify_bessel_y0 (gfc_expr *x)
 
 
 gfc_expr *
-gfc_simplify_bessel_y1 (gfc_expr *x)
+gfc_simplify_bessel_y1 (gfc_expr *x ATTRIBUTE_UNUSED)
 {
 #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0)
   gfc_expr *result;
@@ -739,7 +740,8 @@ gfc_simplify_bessel_y1 (gfc_expr *x)
 
 
 gfc_expr *
-gfc_simplify_bessel_yn (gfc_expr *order, gfc_expr *x)
+gfc_simplify_bessel_yn (gfc_expr *order ATTRIBUTE_UNUSED,
+                       gfc_expr *x ATTRIBUTE_UNUSED)
 {
 #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0)
   gfc_expr *result;