diff mbox

[Fortran,committed] Fixed a typo

Message ID 533F2F93.7030004@net-b.de
State New
Headers show

Commit Message

Tobias Burnus April 4, 2014, 10:17 p.m. UTC 
Committed as obvious, Rev. 209133

Tobias
diff mbox

Patch

Index: ChangeLog
===================================================================
--- ChangeLog	(Revision 209132)
+++ ChangeLog	(Arbeitskopie)
@@ -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>
 
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;