* trans-decl.c (build_function_decl): Fix spelling in comment.

(build_entry_thunks): Remove code with no function.
(gfc_build_intrinsic_function_decls): Remove empty line.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86494 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 1 insertions, 7 deletions

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 344966358fa..7801c65b3fa 100644
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -1050,7 +1050,7 @@ build_function_decl (gfc_symbol * sym)
   DECL_CONTEXT (fndecl) = current_function_decl;
   DECL_EXTERNAL (fndecl) = 0;
 
-  /* This specifies if a function is globaly visible, i.e. it is
+  /* This specifies if a function is globally visible, i.e. it is
      the opposite of declaring static in C.  */
   if (DECL_CONTEXT (fndecl) == NULL_TREE
       && !sym->attr.entry_master)
@@ -1335,11 +1335,6 @@ build_entry_thunks (gfc_namespace * ns)
   /* This should always be a toplevel function.  */
   assert (current_function_decl == NULL_TREE);
 
-  /* Remember the master function argument decls.  */
-  for (formal = ns->proc_name->formal; formal; formal = formal->next)
-    {
-    }
-  
   for (el = ns->entries; el; el = el->next)
     {
       thunk_sym = el->sym;
@@ -1661,7 +1656,6 @@ gfc_build_intrinsic_function_decls (void)
                                      2, pvoid_type_node,
                                      pvoid_type_node);
 
-
   /* Power functions.  */
   {
     tree type;