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

From-SVN: r81997

* trans-const.c (gfc_conv_mpf_to_tree): Fix typo.
From-SVN: r81997
e584e501 · Tobias Schlüter · 1833df5c · e584e501 · e584e501
Commit e584e501 authored May 18, 2004 by Tobias Schlüter
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

gcc/fortran/ChangeLog
+5 -1

gcc/fortran/trans-const.c
+1 -1

No files found.
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
-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.


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