diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-09-25 17:50:00 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-09-25 17:50:00 +0200 |
| commit | 75d17889dff3b4cd5e31430c6c9769c18a210efe (patch) | |
| tree | c10a1920ee1ebf1956e23d8d3c00f3f3d460eada /gcc/fortran/decl.c | |
| parent | 601d18c61627998700b6e267110e61464f562e8f (diff) | |
| download | gcc-75d17889dff3b4cd5e31430c6c9769c18a210efe.zip gcc-75d17889dff3b4cd5e31430c6c9769c18a210efe.tar.gz gcc-75d17889dff3b4cd5e31430c6c9769c18a210efe.tar.bz2 | |
* decl.c (add_init_expr_to_sym, variable_decl): Comment fixes.
From-SVN: r88104
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 44cd2fd..508c90c 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) { |