From b0b760a70bd3fe8f84afb4bc55b8f70f1cb692f6 Mon Sep 17 00:00:00 2001 From: kargl Date: Thu, 9 Dec 2010 16:02:50 +0000 Subject: [PATCH] 2010-12-09 Steven G. Kargl * check.c (gfc_check_sngl): Insert missing space in error message. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@167645 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 f4dedd85651f..0c1765f5c31b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2010-12-09 Steven G. Kargl + + * check.c (gfc_check_sngl): Insert missing space in error message. + 2010-12-09 Steven G. Kargl * check.c (gfc_check_float): Insert missing space in error message. diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index b2b773da9fd8..ceea6f313e4d 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -3343,7 +3343,7 @@ gfc_check_sngl (gfc_expr *a) return FAILURE; if ((a->ts.kind != gfc_default_double_kind) - && gfc_notify_std (GFC_STD_GNU, "GNU extension: non double precision" + && gfc_notify_std (GFC_STD_GNU, "GNU extension: non double precision " "REAL argument to %s intrinsic at %L", gfc_current_intrinsic, &a->where) == FAILURE) return FAILURE; -- 2.47.2