diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c
index 63ee7b9cd50d..2b9c2d179bb3 100644
--- a/gcc/fortran/frontend-passes.c
+++ b/gcc/fortran/frontend-passes.c
@@ -2648,7 +2648,7 @@ doloop_code (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED,
 		{
 		  if (f->sym->attr.intent == INTENT_OUT)
 		    gfc_error_now ("Variable %qs at %L set to undefined "
-				   "value inside loop  beginning at %L as "
+				   "value inside loop beginning at %L as "
 				   "INTENT(OUT) argument to subroutine %qs",
 				   do_sym->name, &a->expr->where,
 				   &(doloop_list[i].c->loc),