From: Jakub Jelinek <jakub@redhat.com>
Date: Mon, 31 Jul 2017 09:32:02 +0000 (+0200)
Subject: * check.c (gfc_check_num_images): Fix a pasto.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=57b1c5e9ab2d6e5f6d0896f690e5910280fff83f;p=gcc.git

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

From-SVN: r250734
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 81b220ad776..dc0495af964 100644
--- 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 45bc68ef7ad..e85e398cd43 100644
--- 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;
     }