mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-15 16:11:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
From-SVN: r81997
This commit is contained in:
Tobias Schlüter 2004-05-18 18:48:09 +02:00
parent 1833df5cfe
commit e584e50152
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

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

2
gcc/fortran/trans-const.c
View File

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