From: Tobias Schlüter <tobi@gcc.gnu.org>
Date: Tue, 18 May 2004 16:48:09 +0000 (+0200)
Subject: * trans-const.c (gfc_conv_mpf_to_tree): Fix typo.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e584e50152ea99c4f44f48a79a308cba7645c241;p=gcc.git

* trans-const.c (gfc_conv_mpf_to_tree): Fix typo.

From-SVN: r81997
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2cfe50d1314..a5a1f4b21e9 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,4 +1,8 @@
-2004-05-17  Steve Kargl  <kargls@comcast.net>
+2004-05-18  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	* trans-const.c (gfc_conv_mpf_to_tree): Fix typo.
+
+2004-05-18  Steve Kargl  <kargls@comcast.net>
 
 	* arith.c (gfc_int2complex): Fix incorrect range checking.
 
diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c
index 6e6865202e8..13f6b83c8b3 100644
--- a/gcc/fortran/trans-const.c
+++ b/gcc/fortran/trans-const.c
@@ -252,7 +252,7 @@ gfc_conv_mpf_to_tree (mpf_t f, int kind)
   assert (gfc_real_kinds[n].radix == 2);
 
   n = MAX (abs (gfc_real_kinds[n].min_exponent),
-	   abs (gfc_real_kinds[n].min_exponent));
+	   abs (gfc_real_kinds[n].max_exponent));
 #if 0
   edigits = 2 + (int) (log (n) / log (gfc_real_kinds[n].radix));
 #endif