This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[gfortran, committed] Comment fixes
- From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
- To: GCC Fortran mailing list <fortran at gcc dot gnu dot org>,patch <gcc-patches at gcc dot gnu dot org>
- Date: Sat, 25 Sep 2004 17:51:20 +0200
- Subject: [gfortran, committed] Comment fixes
Just clearing up one comment, fixing a typo in another.
Committed.
- Tobi
Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/ChangeLog,v
retrieving revision 1.214
diff -u -p -r1.214 ChangeLog
--- ChangeLog 24 Sep 2004 17:06:55 -0000 1.214
+++ ChangeLog 25 Sep 2004 15:49:16 -0000
@@ -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
Index: decl.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/decl.c,v
retrieving revision 1.24
diff -u -p -r1.24 decl.c
--- decl.c 16 Sep 2004 16:00:41 -0000 1.24
+++ decl.c 25 Sep 2004 15:49:16 -0000
@@ -704,7 +704,8 @@ add_init_expr_to_sym (const char *name,
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)
{