* check.c (gfc_check_num_images): Fix a pasto.

From-SVN: r250734

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 81b220ad776a3cdfd8aeff8d703625ee2d6d3f17..dc0495af964672dd59e5519ab524e51305f34eea 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2017-07-31  Jakub Jelinek  <jakub@redhat.com>
+
+       * check.c (gfc_check_num_images): Fix a pasto.
+
 2017-07-29  Jakub Jelinek  <jakub@redhat.com>
 
        * trans-decl.c (gfc_trans_use_stmts): Pass false as new argument to

diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index 45bc68ef7ad46575716dd2374c2afdb805175f1b..e85e398cd4330059d1e62810a36dd21fc39ed761 100644 (file)
--- a/gcc/fortran/check.c
+++ b/gcc/fortran/check.c
@@ -5149,7 +5149,7 @@ gfc_check_num_images (gfc_expr *distance, gfc_expr *failed)
        return false;
 
       if (!gfc_notify_std (GFC_STD_F2008_TS, "FAILED= argument to "
-                          "NUM_IMAGES at %L", &distance->where))
+                          "NUM_IMAGES at %L", &failed->where))
        return false;
     }