diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index abff6a261fb8..c0301daa6742 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-05  Steven G. Kargl  <kargls@comcast.net>
+
+	* data.c (gfc_assign_data_value):  Fix comment typo.  Remove
+	a spurious return.
+
 2006-06-05  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/14067
diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c
index c708becd095e..e12eccd0a29c 100644
--- a/gcc/fortran/data.c
+++ b/gcc/fortran/data.c
@@ -231,7 +231,7 @@ gfc_assign_data_value (gfc_expr * lvalue, gfc_expr * rvalue, mpz_t index)
       /* Break out of the loop if we find a substring.  */
       if (ref->type == REF_SUBSTRING)
 	{
-	  /* A substring should always br the last subobject reference.  */
+	  /* A substring should always be the last subobject reference.  */
 	  gcc_assert (ref->next == NULL);
 	  break;
 	}
@@ -340,7 +340,6 @@ gfc_assign_data_value (gfc_expr * lvalue, gfc_expr * rvalue, mpz_t index)
 #endif
 	  gfc_notify_std (GFC_STD_GNU, "Extension: re-initialization "
 			  "of '%s' at %L",  symbol->name, &expr->where);
-	  return;
 	}
 
       expr = gfc_copy_expr (rvalue);