From 6c655c5e60af2d983e017124388622a973868661 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Mon, 5 Jun 2006 19:50:05 +0000 Subject: data.c (gfc_assign_data_value): Fix comment typo. 2006-06-05 Steven G. Kargl * data.c (gfc_assign_data_value): Fix comment typo. Remove a spurious return. From-SVN: r114406 --- gcc/fortran/data.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'gcc/fortran/data.c') diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index c708bec..e12eccd 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); -- cgit v1.1