From aac78fde6aa6ae829679355bc2a65bcadd834e6f Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 14 May 2025 09:18:09 +0200 Subject: [PATCH] Fortran: Fix mpfr_tanu use in gfc_simplify_cotand with mpfr 4.2.0+ [PR120225] Fix commit r16-607-gc91c226762b422. gcc/fortran/ChangeLog: PR fortran/120225 * simplify.cc (gfc_simplify_cotand): Fix used argument in mpfr_tanu call. --- gcc/fortran/simplify.cc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/fortran/simplify.cc b/gcc/fortran/simplify.cc index 79701be839d..1927097c190 100644 --- a/gcc/fortran/simplify.cc +++ b/gcc/fortran/simplify.cc @@ -2114,7 +2114,7 @@ gfc_simplify_cotand (gfc_expr *x) mpfr_set (result->value.real, x->value.real, GFC_RND_MODE); mpfr_add_ui (result->value.real, result->value.real, 90, GFC_RND_MODE); #if MPFR_VERSION >= MPFR_VERSION_NUM(4,2,0) - mpfr_tanu (result->value.real, x->value.real, 360, GFC_RND_MODE); + mpfr_tanu (result->value.real, result->value.real, 360, GFC_RND_MODE); #else simplify_tand (result->value.real); #endif -- 2.47.2