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

From-SVN: r250734

gcc/fortran/ChangeLog

+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

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;
     }