Committed as obvious, Rev. 209133
Tobias
Index: ChangeLog =================================================================== --- ChangeLog (Revision 209132) +++ ChangeLog (Arbeitskopie) @@ -1,3 +1,7 @@ +2014-04-04 Tobias Burnus <bur...@net-b.de> + + * check.c (gfc_check_cmplx): Fix typo. + 2014-03-28 Mikael Morin <mik...@gcc.gnu.org> Tobias Burnus <bur...@net-b.de> Index: check.c =================================================================== --- check.c (Revision 209132) +++ check.c (Arbeitskopie) @@ -1278,12 +1278,12 @@ gfc_check_cmplx (gfc_expr *x, gfc_expr *y, gfc_exp 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;