From: Tobias Schlüter Date: Sat, 25 Sep 2004 15:50:00 +0000 (+0200) Subject: * decl.c (add_init_expr_to_sym, variable_decl): Comment fixes. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=75d17889dff3b4cd5e31430c6c9769c18a210efe;p=gcc.git * decl.c (add_init_expr_to_sym, variable_decl): Comment fixes. From-SVN: r88104 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 46bb7fa0982..67837019273 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2004-09-25 Tobias Schlueter + + * decl.c (add_init_expr_to_sym, variable_decl): Comment fixes. + 2004-09-24 Tobias Schlueter * trans-types.c (gfc_return_by_reference): Remove superfluous diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 44cd2fdbe79..508c90c2c65 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -704,7 +704,8 @@ add_init_expr_to_sym (const char *name, gfc_expr ** initp, return FAILURE; } - /* Checking a derived type parameter has to be put off until later. */ + /* Check if the assignment can happen. This has to be put off + until later for a derived type variable. */ if (sym->ts.type != BT_DERIVED && init->ts.type != BT_DERIVED && gfc_check_assign_symbol (sym, init) == FAILURE) return FAILURE; @@ -930,7 +931,7 @@ variable_decl (void) variable immediately preceding, i.e. integer i, j /1, 2/ is not allowed. Therefore we have to do some work manually, that - could otherwise be let to the matchers for DATA statements. */ + could otherwise be left to the matchers for DATA statements. */ if (!colon_seen && gfc_match (" /") == MATCH_YES) {