diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-04-05 00:16:16 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-04-05 00:16:16 +0200 |
| commit | 3e0da29a996ff9457f973781dd233835bb793b3a (patch) | |
| tree | d1479a0aadc4426bab8bbd88ab38baeab9780235 /gcc/fortran/check.c | |
| parent | 961e89f297ee15a1fa8ce510a98f34fc7062e52d (diff) | |
| download | gcc-3e0da29a996ff9457f973781dd233835bb793b3a.zip gcc-3e0da29a996ff9457f973781dd233835bb793b3a.tar.gz gcc-3e0da29a996ff9457f973781dd233835bb793b3a.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 119750a..b83d9da 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; |