OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* decl.c (add_init_expr_to_sym, variable_decl): Comment fixes.

Browse Source 
From-SVN: r88104
This commit is contained in:
Tobias Schlüter 2004-09-25 17:50:00 +02:00 committed by Tobias Schlüter
parent 601d18c616
commit 75d17889df
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2004-09-25 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* decl.c (add_init_expr_to_sym, variable_decl): Comment fixes.
2004-09-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* trans-types.c (gfc_return_by_reference): Remove superfluous

5
gcc/fortran/decl.c
View File

@ -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)
{