diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-06-05 19:50:05 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-06-05 19:50:05 +0000 |
| commit | 28778287e256f2fb46380152bc7c847c665bd619 (patch) | |
| tree | e6c8b821b3715908c5ff2a7bc365e534a5f0d065 /gcc/fortran/data.c | |
| parent | 53c218e267884350b366c89c9a67e510c7694781 (diff) | |
| download | gcc-28778287e256f2fb46380152bc7c847c665bd619.tar.gz | |
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
Diffstat (limited to 'gcc/fortran/data.c')
| -rw-r--r-- | gcc/fortran/data.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index c708becd095..e12eccd0a29 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); |