From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Tue, 6 May 2008 20:28:19 +0000 (+0000)
Subject: simplify.c (gfc_simplify_bessel_j0,gfc_simplify_bessel_j1, [...]): Mark arguments... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1b38192d61001d9cd1b15baf233a9e8847d06889;p=gcc.git

simplify.c (gfc_simplify_bessel_j0,gfc_simplify_bessel_j1, [...]): Mark arguments with ATTRIBUTE_UNUSED.

	* 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.

From-SVN: r134998
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b67a5b8dbb3..083a1def659 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,10 @@
+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.
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index d7fafecfefd..5de686fb957 100644
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -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;