diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-25 15:50:00 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-25 15:50:00 +0000 |
| commit | cca3db550474ffe31298399c0c2446cb41d4bd26 (patch) | |
| tree | c10a1920ee1ebf1956e23d8d3c00f3f3d460eada /gcc/fortran/decl.c | |
| parent | a6aab6cdfd9a9e1b9504ac562cc545ac83d858cb (diff) | |
| download | gcc-cca3db550474ffe31298399c0c2446cb41d4bd26.tar.gz | |
* decl.c (add_init_expr_to_sym, variable_decl): Comment fixes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88104 138bc75d-0d04-0410-961f-82ee72b054a4
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 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) { |