From 3e0da29a996ff9457f973781dd233835bb793b3a Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 5 Apr 2014 00:16:16 +0200 Subject: [PATCH] check.c (gfc_check_cmplx): Fix typo. 2014-04-04 Tobias Burnus * check.c (gfc_check_cmplx): Fix typo. From-SVN: r209133 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/check.c | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3d8cb5cdfc8..dcc84fd84fb 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2014-04-04 Tobias Burnus + + * check.c (gfc_check_cmplx): Fix typo. + 2014-03-28 Mikael Morin Tobias Burnus diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 119750aab8f..b83d9da148d 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -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; -- 2.11.4.GIT