OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

check.c (gfc_check_cmplx): Fix typo. 

2014-04-04  Tobias Burnus  <burnus@net-b.de>

        * check.c (gfc_check_cmplx): Fix typo.

From-SVN: r209133
This commit is contained in:
Tobias Burnus 2014-04-05 00:16:16 +02:00 committed by Tobias Burnus
parent 961e89f297
commit 3e0da29a99
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2014-04-04 Tobias Burnus <burnus@net-b.de>
* check.c (gfc_check_cmplx): Fix typo.
2014-03-28 Mikael Morin <mikael@gcc.gnu.org>
Tobias Burnus <burnus@net-b.de>

4
gcc/fortran/check.c
View File

@ -1278,12 +1278,12 @@ gfc_check_cmplx (gfc_expr *x, gfc_expr *y, gfc_expr *kind)
if (!kind && gfc_option.gfc_warn_conversion
&& x->ts.type == BT_REAL && x->ts.kind > gfc_default_real_kind)
gfc_warning_now ("Conversion from %s to default-kind COMPLEX(%d) at %L "
"might loose precision, consider using the KIND argument",
"might lose precision, consider using the KIND argument",
gfc_typename (&x->ts), gfc_default_real_kind, &x->where);
else if (y && !kind && gfc_option.gfc_warn_conversion
&& y->ts.type == BT_REAL && y->ts.kind > gfc_default_real_kind)
gfc_warning_now ("Conversion from %s to default-kind COMPLEX(%d) at %L "
"might loose precision, consider using the KIND argument",
"might lose precision, consider using the KIND argument",
gfc_typename (&y->ts), gfc_default_real_kind, &y->where);
return true;