From 1b38192d61001d9cd1b15baf233a9e8847d06889 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Tue, 6 May 2008 20:28:19 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/simplify.c | 14 ++++++++------ 2 files changed, 15 insertions(+), 6 deletions(-) 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 + + * 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 * 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; -- 2.30.2