* trans-decl.c (gfc_build_function_decl): Remove dead code.

From-SVN: r85996

gcc/fortran/ChangeLog

 2004-08-14  Paul Brook  <paul@codesourcery.com>
 
+	* trans-decl.c (gfc_build_function_decl): Remove dead code.
+
+2004-08-14  Paul Brook  <paul@codesourcery.com>
+
 	* trans-arry.c (gfc_trans_auto_array_allocation): Remove unused var.
 
 2004-08-13  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>

gcc/fortran/trans-decl.c

@@ -976,6 +976,7 @@ gfc_build_function_decl (gfc_symbol * sym)
   tree length;
   symbol_attribute attr;
   gfc_formal_arglist *f;
+  tree parm;
 
   assert (!sym->backend_decl);
   assert (!sym->attr.external);
@@ -1049,13 +1050,12 @@ gfc_build_function_decl (gfc_symbol * sym)
   DECL_CONTEXT (fndecl) = current_function_decl;
   DECL_EXTERNAL (fndecl) = 0;
 
-  /* This specifies if a function is globaly addressable, ie. it is
+  /* This specifies if a function is globaly visible, ie. it is
      the opposite of declaring static in C.  */
-  if (DECL_CONTEXT (fndecl) == NULL_TREE || attr.external)
+  if (DECL_CONTEXT (fndecl) == NULL_TREE)
     TREE_PUBLIC (fndecl) = 1;
 
   /* TREE_STATIC means the function body is defined here.  */
-  if (!attr.external)
   TREE_STATIC (fndecl) = 1;
 
   /* Set attributes for PURE functions. A call to PURE function in the
@@ -1073,10 +1073,6 @@ gfc_build_function_decl (gfc_symbol * sym)
 
   /* Layout the function declaration and put it in the binding level
      of the current function.  */
-  if (!attr.external)
-    {
-      tree parm;
-
   pushdecl (fndecl);
   /* Build formal argument list. Make sure that their TREE_CONTEXT is
      the new FUNCTION_DECL node.  */
@@ -1212,7 +1208,7 @@ gfc_build_function_decl (gfc_symbol * sym)
 
   /* Restore the old context.  */
   current_function_decl = DECL_CONTEXT (fndecl);
-    }
+
   sym->backend_decl = fndecl;
 }