From 75d17889dff3b4cd5e31430c6c9769c18a210efe Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sat, 25 Sep 2004 17:50:00 +0200 Subject: [PATCH] * decl.c (add_init_expr_to_sym, variable_decl): Comment fixes. From-SVN: r88104 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/decl.c | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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) { -- 2.30.2