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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81997 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2cfe50d..a5a1f4b 100644 (file)
--- 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 6e68652..13f6b83 100644 (file)
--- 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