[gcc r16-608] Fortran: Fix mpfr_tanu use in gfc_simplify_cotand with mpfr 4.2.0+ [PR120225]

[Tobias Burnus via Gcc-cvs]

https://gcc.gnu.org/g:aac78fde6aa6ae829679355bc2a65bcadd834e6f

commit r16-608-gaac78fde6aa6ae829679355bc2a65bcadd834e6f
Author: Tobias Burnus <tbur...@baylibre.com>
Date:   Wed May 14 09:18:09 2025 +0200

    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.

Diff:
---
 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 79701be839d0..1927097c1906 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