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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3d8cb5c..dcc84fd 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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>
 

diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index 119750a..b83d9da 100644 (file)
--- 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;