2010-12-09 Steven G. Kargl <kargl@gcc.gnu.org>

	* 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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f4dedd85651ff03f7e16cfaa59da13678de4e800..0c1765f5c31b46eb70af6eeb093fa33251d6cc92 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2010-12-09  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+       * check.c (gfc_check_sngl): Insert missing space in error message.
+
 2010-12-09  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        * check.c (gfc_check_float): Insert missing space in error message.

diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index b2b773da9fd8b0c2998a483c6db293eb6094430f..ceea6f313e4d2e4f0ad38b07344cf66e2d286098 100644 (file)
--- 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;