mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 10:40:50 +08:00
Code Issues Packages Projects Releases Wiki Activity

data.c (gfc_assign_data_value): Fix comment typo.

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

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

From-SVN: r114406
This commit is contained in:
Steven G. Kargl 2006-06-05 19:50:05 +00:00 committed by Steven G. Kargl
parent a40df91b68
commit 6c655c5e60
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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

3
gcc/fortran/data.c
View File

@ -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);