2006-06-05 Steven G. Kargl <kargls@comcast.net>

        * data.c (gfc_assign_data_value):  Fix comment typo.  Remove
        a spurious return.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114406 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index abff6a2..c0301da 100644 (file)
--- 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 c708bec..e12eccd 100644 (file)
--- 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);