mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-03-15 15:01:20 +08:00
* trans-const.c (gfc_conv_mpf_to_tree): Fix typo.
From-SVN: r81997
This commit is contained in:
parent
1833df5cfe
commit
e584e50152
@ -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.
|
||||
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user