* trans.c, trans-decl.c: Fix comment typos.

From-SVN: r82008

gcc/fortran/ChangeLog

 2004-05-18  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
+	* trans.c, trans-decl.c: Fix comment typos.
+
+2004-05-18  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
 	* trans-const.c (gfc_conv_mpf_to_tree): Fix typo.
 
 2004-05-18  Steve Kargl  <kargls@comcast.net>

gcc/fortran/trans-decl.c

@@ -1048,7 +1048,7 @@ gfc_build_function_decl (gfc_symbol * sym)
   DECL_EXTERNAL (fndecl) = 0;
 
   /* This specifies if a function is globaly addressable, ie. it is
-     the opposite of decalring static  in C.  */
+     the opposite of declaring static in C.  */
   if (DECL_CONTEXT (fndecl) == NULL_TREE || attr.external)
     TREE_PUBLIC (fndecl) = 1;
 
@@ -1094,7 +1094,7 @@ gfc_build_function_decl (gfc_symbol * sym)
 	    {
 	      gfc_allocate_lang_decl (parm);
 
-	      /* Length of character result */
+	      /* Length of character result.  */
 	      type = TREE_VALUE (typelist);
 	      assert (type == gfc_strlen_type_node);
 
@@ -1795,10 +1795,10 @@ gfc_generate_module_vars (gfc_namespace * ns)
 {
   module_namespace = ns;
 
-  /* Check the frontend left the namespace in a reasonable state.  */
+  /* Check if the frontend left the namespace in a reasonable state.  */
   assert (ns->proc_name && !ns->proc_name->tlink);
 
-  /* Create decls for all the module varuiables.  */
+  /* Create decls for all the module variables.  */
   gfc_traverse_ns (ns, gfc_create_module_variable);
 }
 
@@ -1856,7 +1856,7 @@ generate_local_decl (gfc_symbol * sym)
             warning ("unused parameter `%s'", sym->name);
         }
       /* warn for unused variables, but not if they're inside a common
-     block.  */
+	 block.  */
       else if (warn_unused_variable && !sym->attr.in_common)
         warning ("unused variable `%s'", sym->name);
     }

gcc/fortran/trans.c

@@ -366,7 +366,7 @@ gfc_trans_runtime_check (tree cond, tree msg, stmtblock_t * pblock)
     }
   else
     {
-      /* Tell the compiler that this isn't likley.  */
+      /* Tell the compiler that this isn't likely.  */
       tmp = gfc_chainon_list (NULL_TREE, cond);
       tmp = gfc_chainon_list (tmp, integer_zero_node);
       cond = gfc_build_function_call (built_in_decls[BUILT_IN_EXPECT], tmp);
@@ -377,7 +377,7 @@ gfc_trans_runtime_check (tree cond, tree msg, stmtblock_t * pblock)
 }
 
 
-/* Add a statement to a bock.  */
+/* Add a statement to a block.  */
 
 void
 gfc_add_expr_to_block (stmtblock_t * block, tree expr)
@@ -409,7 +409,7 @@ gfc_add_block_to_block (stmtblock_t * block, stmtblock_t * append)
 
 
 /* Get the current locus.  The structure may not be complete, and should
-   only be used with gfc_set_current_locus.  */
+   only be used with gfc_set_backend_locus.  */
 
 void
 gfc_get_backend_locus (locus * loc)