From 57b1c5e9ab2d6e5f6d0896f690e5910280fff83f Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Mon, 31 Jul 2017 11:32:02 +0200 Subject: [PATCH] * check.c (gfc_check_num_images): Fix a pasto. From-SVN: r250734 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/check.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * check.c (gfc_check_num_images): Fix a pasto. + 2017-07-29 Jakub Jelinek * 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; } -- 2.30.2