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

From-SVN: r88104

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 46bb7fa09822382a534acb8c7cdac6966c156e94..67837019273c17137b0e4a58c72c0f2ce847de5b 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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

diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 44cd2fdbe79cdd984d8e015f51d3caa618309bd8..508c90c2c6548154439452b8c13ed6350a3f4a0d 100644 (file)
--- 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)
     {