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

From-SVN: r81997

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2cfe50d13142d2c1272b4501766ea8861d4b8b0b..a5a1f4b21e919641d06f6abfe5faf4a1ae1048cd 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 6e6865202e8640c37ca249ce5b41967bd6bd7893..13f6b83c8b38750dd761f5758901d6c84faa6b35 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