From: Tobias Burnus <tburnus@baylibre.com>
Date: Wed, 14 May 2025 07:18:09 +0000 (+0200)
Subject: Fortran: Fix mpfr_tanu use in gfc_simplify_cotand with mpfr 4.2.0+ [PR120225]
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=aac78fde6aa6ae829679355bc2a65bcadd834e6f;p=thirdparty%2Fgcc.git

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