From: jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 31 Jul 2017 09:32:02 +0000 (+0000)
Subject: 	* check.c (gfc_check_num_images): Fix a pasto.
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=4995d1b38523af79f5e79f914e05409f980e588f;p=thirdparty%2Fgcc.git

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


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@250734 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 81b220ad776a..dc0495af9646 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 45bc68ef7ad4..e85e398cd433 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;
     }