bad.c: Convert () to (void) in function definitions.

	* bad.c: Convert () to (void) in function definitions.
	* bld.c: Likewise.
	* data.c: Likewise.
	* equiv.c: Likewise.
	* expr.c: Likewise.
	* global.c: Likewise.
	* implic.c: Likewise.
	* info.c: Likewise.
	* intdoc.c: Likewise.
	* intrin.c: Likewise.
	* lab.c: Likewise.
	* lex.c: Likewise.
	* malloc.c: Likewise.
	* src.c: Likewise.
	* st.c: Likewise.
	* sta.c: Likewise.
	* stb.c: Likewise.
	* stc.c: Likewise.
	* std.c: Likewise.
	* ste.c: Likewise.
	* storag.c: Likewise.
	* stt.c: Likewise.
	* stw.c: Likewise.
	* symbol.c: Likewise.
	* top.c: Likewise.
	* where.c: Likewise.

	* com.c: Convert prototypes to ISO C90.
	* com.h: Likewise.
	* g77spec.c: Likewise.

From-SVN: r69014

30 files changed, 386 insertions, 374 deletions

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 34483fe..ee22ec6 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,36 @@
+2003-07-06  Andreas Jaeger  <aj@suse.de>
+
+	* bad.c: Convert () to (void) in function definitions.
+	* bld.c: Likewise.
+	* data.c: Likewise.
+	* equiv.c: Likewise.
+	* expr.c: Likewise.
+	* global.c: Likewise.
+	* implic.c: Likewise.
+	* info.c: Likewise.
+	* intdoc.c: Likewise.
+	* intrin.c: Likewise.
+	* lab.c: Likewise.
+	* lex.c: Likewise.
+	* malloc.c: Likewise.
+	* src.c: Likewise.
+	* st.c: Likewise.
+	* sta.c: Likewise.
+	* stb.c: Likewise.
+	* stc.c: Likewise.
+	* std.c: Likewise.
+	* ste.c: Likewise.
+	* storag.c: Likewise.
+	* stt.c: Likewise.
+	* stw.c: Likewise.
+	* symbol.c: Likewise.
+	* top.c: Likewise.
+	* where.c: Likewise.
+
+	* com.c: Convert prototypes to ISO C90.
+	* com.h: Likewise.
+	* g77spec.c: Likewise.
+
 Sun Jul  6 20:01:29 2003  Neil Booth  <neil@daikokuya.co.uk>
 
 	* top.c (ffe_handle_option): Don't handle filenames.
diff --git a/gcc/f/bad.c b/gcc/f/bad.c
index deed124..bed9734 100644
--- a/gcc/f/bad.c
+++ b/gcc/f/bad.c
@@ -1,5 +1,5 @@
 /* bad.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995, 2002 Free Software Foundation, Inc.
+   Copyright (C) 1995, 2002, 2003 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -132,7 +132,7 @@ ffebad_bufputs_ (char buf[], int bufi, const char *s)
    ffebad_init_0();  */
 
 void
-ffebad_init_0 ()
+ffebad_init_0 (void)
 {
   assert (FFEBAD == ARRAY_SIZE (ffebad_messages_));
 }
@@ -348,7 +348,7 @@ ffebad_string (const char *string)
    to actually get it to print (to stderr).  */
 
 void
-ffebad_finish ()
+ffebad_finish (void)
 {
 #define MAX_SPACES 132
   static const char *const spaces
diff --git a/gcc/f/bld.c b/gcc/f/bld.c
index bf2d1c6..6f96f5b 100644
--- a/gcc/f/bld.c
+++ b/gcc/f/bld.c
@@ -2380,7 +2380,7 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt,
    ffebld_init_0();  */
 
 void
-ffebld_init_0 ()
+ffebld_init_0 (void)
 {
   assert (FFEBLD_op == ARRAY_SIZE (ffebld_op_string_));
   assert (FFEBLD_op == ARRAY_SIZE (ffebld_arity_op_));
@@ -2391,7 +2391,7 @@ ffebld_init_0 ()
    ffebld_init_1();  */
 
 void
-ffebld_init_1 ()
+ffebld_init_1 (void)
 {
 #if FFEBLD_whereconstCURRENT_ == FFEBLD_whereconstFILE_
   int i;
@@ -2452,7 +2452,7 @@ ffebld_init_1 ()
    ffebld_init_2();  */
 
 void
-ffebld_init_2 ()
+ffebld_init_2 (void)
 {
 #if FFEBLD_whereconstCURRENT_ == FFEBLD_whereconstPROGUNIT_
   int i;
@@ -2726,7 +2726,7 @@ ffebld_new_two (ffebldOp o, ffebld left, ffebld right)
    ffebld_pool_pop();  */
 
 void
-ffebld_pool_pop ()
+ffebld_pool_pop (void)
 {
   ffebldPoolstack_ ps;
 
diff --git a/gcc/f/com.c b/gcc/f/com.c
index e9a2053..7480cd3 100644
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -264,14 +264,14 @@ struct _ffecom_concat_list_
 
 /* Static functions (internal). */
 
-static tree ffe_type_for_mode PARAMS ((enum machine_mode, int));
-static tree ffe_type_for_size PARAMS ((unsigned int, int));
-static tree ffe_unsigned_type PARAMS ((tree));
-static tree ffe_signed_type PARAMS ((tree));
-static tree ffe_signed_or_unsigned_type PARAMS ((int, tree));
-static bool ffe_mark_addressable PARAMS ((tree));
-static tree ffe_truthvalue_conversion PARAMS ((tree));
-static void ffecom_init_decl_processing PARAMS ((void));
+static tree ffe_type_for_mode (enum machine_mode, int);
+static tree ffe_type_for_size (unsigned int, int);
+static tree ffe_unsigned_type (tree);
+static tree ffe_signed_type (tree);
+static tree ffe_signed_or_unsigned_type (int, tree);
+static bool ffe_mark_addressable (tree);
+static tree ffe_truthvalue_conversion (tree);
+static void ffecom_init_decl_processing (void);
 static tree ffecom_arglist_expr_ (const char *argstring, ffebld args);
 static tree ffecom_widest_expr_type_ (ffebld list);
 static bool ffecom_overlap_ (tree dest_decl, tree dest_offset,
@@ -1530,8 +1530,7 @@ ffecom_possible_partial_overlap_ (ffebld expr1, ffebld expr2 ATTRIBUTE_UNUSED)
 
 static bool
 ffecom_overlap_ (tree dest_decl, tree dest_offset, tree dest_size,
-		 tree source_tree, ffebld source UNUSED,
-		 bool scalar_arg)
+		 tree source_tree, ffebld source UNUSED, bool scalar_arg)
 {
   tree source_decl;
   tree source_offset;
@@ -1712,9 +1711,8 @@ ffecom_overlap_ (tree dest_decl, tree dest_offset, tree dest_size,
    in a COMMON area the callee might know about (and thus modify).  */
 
 static bool
-ffecom_args_overlapping_ (tree dest_tree, ffebld dest UNUSED,
-			  tree args, tree callee_commons,
-			  bool scalar_args)
+ffecom_args_overlapping_ (tree dest_tree, ffebld dest UNUSED, tree args,
+			  tree callee_commons, bool scalar_args)
 {
   tree arg;
   tree dest_decl;
@@ -1788,10 +1786,9 @@ ffecom_build_f2c_string_ (int i, const char *s)
    to the arglist a pointer to a temporary to receive the return value.	 */
 
 static tree
-ffecom_call_ (tree fn, ffeinfoKindtype kt, bool is_f2c_complex,
-	      tree type, tree args, tree dest_tree,
-	      ffebld dest, bool *dest_used, tree callee_commons,
-	      bool scalar_args, tree hook)
+ffecom_call_ (tree fn, ffeinfoKindtype kt, bool is_f2c_complex, tree type,
+	      tree args, tree dest_tree, ffebld dest, bool *dest_used,
+	      tree callee_commons, bool scalar_args, tree hook)
 {
   tree item;
   tree tempvar;
@@ -1849,9 +1846,9 @@ ffecom_call_ (tree fn, ffeinfoKindtype kt, bool is_f2c_complex,
 
 static tree
 ffecom_call_binop_ (tree fn, ffeinfoKindtype kt, bool is_f2c_complex,
-		    tree type, ffebld left, ffebld right,
-		    tree dest_tree, ffebld dest, bool *dest_used,
-		    tree callee_commons, bool scalar_args, bool ref, tree hook)
+		    tree type, ffebld left, ffebld right, tree dest_tree,
+		    ffebld dest, bool *dest_used, tree callee_commons,
+		    bool scalar_args, bool ref, tree hook)
 {
   tree left_tree;
   tree right_tree;
@@ -2929,8 +2926,8 @@ ffecom_do_entry_ (ffesymbol fn, int entrynum)
    made, destination used instead, and dest_used flag set TRUE.  */
 
 static tree
-ffecom_expr_ (ffebld expr, tree dest_tree, ffebld dest,
-	      bool *dest_used, bool assignp, bool widenp)
+ffecom_expr_ (ffebld expr, tree dest_tree, ffebld dest, bool *dest_used,
+	      bool assignp, bool widenp)
 {
   tree item;
   tree list;
@@ -3795,8 +3792,8 @@ ffecom_expr_ (ffebld expr, tree dest_tree, ffebld dest,
    subroutines.  */
 
 static tree
-ffecom_expr_intrinsic_ (ffebld expr, tree dest_tree,
-			ffebld dest, bool *dest_used)
+ffecom_expr_intrinsic_ (ffebld expr, tree dest_tree, ffebld dest,
+			bool *dest_used)
 {
   tree expr_tree;
   tree saved_expr1;		/* For those who need it. */
@@ -5901,8 +5898,7 @@ ffecom_f2c_make_type_ (tree *type, int tcode, const char *name)
    given size.  */
 
 static void
-ffecom_f2c_set_lio_code_ (ffeinfoBasictype bt, int size,
-			  int code)
+ffecom_f2c_set_lio_code_ (ffeinfoBasictype bt, int size, int code)
 {
   int j;
   tree t;
@@ -6308,8 +6304,7 @@ ffecom_init_zero_ (tree decl)
 }
 
 static tree
-ffecom_intrinsic_ichar_ (tree tree_type, ffebld arg,
-			 tree *maybe_tree)
+ffecom_intrinsic_ichar_ (tree tree_type, ffebld arg, tree *maybe_tree)
 {
   tree expr_tree;
   tree length_tree;
@@ -7052,7 +7047,7 @@ ffecom_push_dummy_decls_ (ffebld dummy_list, bool stmtfunc)
    equivalent of a Fortran program unit.  */
 
 static void
-ffecom_start_progunit_ ()
+ffecom_start_progunit_ (void)
 {
   ffesymbol fn = ffecom_primary_entry_;
   ffebld arglist;
@@ -8764,8 +8759,7 @@ ffecom_transform_namelist_ (ffesymbol s)
    taking into account different units of measurements for offsets.  */
 
 static void
-ffecom_tree_canonize_ptr_ (tree *decl, tree *offset,
-			   tree t)
+ffecom_tree_canonize_ptr_ (tree *decl, tree *offset, tree t)
 {
   switch (TREE_CODE (t))
     {
@@ -8850,8 +8844,7 @@ ffecom_tree_canonize_ptr_ (tree *decl, tree *offset,
    reveal the overlap.  */
 
 static void
-ffecom_tree_canonize_ref_ (tree *decl, tree *offset,
-			   tree *size, tree t)
+ffecom_tree_canonize_ref_ (tree *decl, tree *offset, tree *size, tree t)
 {
   /* The default path is to report a nonexistant decl.  */
   *decl = NULL_TREE;
@@ -9004,9 +8997,8 @@ ffecom_tree_canonize_ref_ (tree *decl, tree *offset,
 /* Do divide operation appropriate to type of operands.  */
 
 static tree
-ffecom_tree_divide_ (tree tree_type, tree left, tree right,
-		     tree dest_tree, ffebld dest, bool *dest_used,
-		     tree hook)
+ffecom_tree_divide_ (tree tree_type, tree left, tree right, tree dest_tree,
+		     ffebld dest, bool *dest_used, tree hook)
 {
   if ((left == error_mark_node)
       || (right == error_mark_node))
@@ -9093,8 +9085,7 @@ ffecom_tree_divide_ (tree tree_type, tree left, tree right,
 /* Build type info for non-dummy variable.  */
 
 static tree
-ffecom_type_localvar_ (ffesymbol s, ffeinfoBasictype bt,
-		       ffeinfoKindtype kt)
+ffecom_type_localvar_ (ffesymbol s, ffeinfoBasictype bt, ffeinfoKindtype kt)
 {
   tree type;
   ffebld dl;
@@ -9152,7 +9143,7 @@ ffecom_type_localvar_ (ffesymbol s, ffeinfoBasictype bt,
 
 static GTY(()) tree ffecom_type_namelist_var;
 static tree
-ffecom_type_namelist_ ()
+ffecom_type_namelist_ (void)
 {
   if (ffecom_type_namelist_var == NULL_TREE)
     {
@@ -9183,7 +9174,7 @@ ffecom_type_namelist_ ()
 
 static GTY(()) tree ffecom_type_vardesc_var;
 static tree
-ffecom_type_vardesc_ ()
+ffecom_type_vardesc_ (void)
 {
   if (ffecom_type_vardesc_var == NULL_TREE)
     {
@@ -9547,8 +9538,7 @@ ffecom_1_fn (tree node)
    checking for certain housekeeping things.  */
 
 tree
-ffecom_2 (enum tree_code code, tree type, tree node1,
-	  tree node2)
+ffecom_2 (enum tree_code code, tree type, tree node1, tree node2)
 {
   tree item;
 
@@ -9903,8 +9893,7 @@ ffecom_2pass_do_entrypoint (ffesymbol entry)
    TREE_SIDE_EFFECTS.  */
 
 tree
-ffecom_2s (enum tree_code code, tree type, tree node1,
-	   tree node2)
+ffecom_2s (enum tree_code code, tree type, tree node1, tree node2)
 {
   tree item;
 
@@ -9922,8 +9911,7 @@ ffecom_2s (enum tree_code code, tree type, tree node1,
    checking for certain housekeeping things.  */
 
 tree
-ffecom_3 (enum tree_code code, tree type, tree node1,
-	  tree node2, tree node3)
+ffecom_3 (enum tree_code code, tree type, tree node1, tree node2, tree node3)
 {
   tree item;
 
@@ -9945,8 +9933,7 @@ ffecom_3 (enum tree_code code, tree type, tree node1,
    TREE_SIDE_EFFECTS.  */
 
 tree
-ffecom_3s (enum tree_code code, tree type, tree node1,
-	   tree node2, tree node3)
+ffecom_3s (enum tree_code code, tree type, tree node1, tree node2, tree node3)
 {
   tree item;
 
@@ -10561,8 +10548,8 @@ ffecom_constantunion (ffebldConstantUnion *cu, ffeinfoBasictype bt,
 /* Transform constant-union to tree, with the type known.  */
 
 tree
-ffecom_constantunion_with_type (ffebldConstantUnion *cu,
-		      tree tree_type, ffebldConst ct)
+ffecom_constantunion_with_type (ffebldConstantUnion *cu, tree tree_type,
+				ffebldConst ct)
 {
   tree item;
 
@@ -10675,8 +10662,7 @@ ffecom_const_expr (ffebld expr)
 /* Handy way to make a field in a struct/union.  */
 
 tree
-ffecom_decl_field (tree context, tree prevfield,
-		   const char *name, tree type)
+ffecom_decl_field (tree context, tree prevfield, const char *name, tree type)
 {
   tree field;
 
@@ -10711,7 +10697,7 @@ ffecom_end_compstmt (void)
    Calls ffecom_sym_end_transition for each global and local symbol.  */
 
 void
-ffecom_end_transition ()
+ffecom_end_transition (void)
 {
   ffebld item;
 
@@ -10787,7 +10773,7 @@ ffecom_end_transition ()
    Make sure error updating not inhibited.  */
 
 void
-ffecom_exec_transition ()
+ffecom_exec_transition (void)
 {
   bool inhibited;
 
@@ -10977,7 +10963,7 @@ ffecom_expr_w (tree type, ffebld expr)
 /* Do global stuff.  */
 
 void
-ffecom_finish_compile ()
+ffecom_finish_compile (void)
 {
   assert (ffecom_outer_function_decl_ == NULL_TREE);
   assert (current_function_decl == NULL_TREE);
@@ -10997,7 +10983,7 @@ ffecom_finish_decl (tree decl, tree init, bool is_top_level)
 /* Finish a program unit.  */
 
 void
-ffecom_finish_progunit ()
+ffecom_finish_progunit (void)
 {
   ffecom_end_compstmt ();
 
@@ -11121,7 +11107,7 @@ ffecom_gfrt_kindtype (ffecomGfrt gfrt)
 }
 
 void
-ffecom_init_0 ()
+ffecom_init_0 (void)
 {
   tree endlink;
   int i;
@@ -11889,7 +11875,7 @@ ffecom_init_0 ()
    ffecom_init_2();  */
 
 void
-ffecom_init_2 ()
+ffecom_init_2 (void)
 {
   assert (ffecom_outer_function_decl_ == NULL_TREE);
   assert (current_function_decl == NULL_TREE);
@@ -12049,8 +12035,7 @@ ffecom_lookup_label (ffelab label)
    the MODIFY_EXPR.  */
 
 tree
-ffecom_modify (tree newtype, tree lhs,
-	       tree rhs)
+ffecom_modify (tree newtype, tree lhs, tree rhs)
 {
   if (lhs == error_mark_node || rhs == error_mark_node)
     return error_mark_node;
@@ -12992,7 +12977,7 @@ ffecom_sym_retract (ffesymbol s UNUSED)
 /* Create temporary gcc label.  */
 
 tree
-ffecom_temp_label ()
+ffecom_temp_label (void)
 {
   tree glabel;
   static int mynumber = 0;
@@ -13106,7 +13091,7 @@ ffecom_type_expr (ffebld expr)
    first ENTRY statement, and so on).  */
 
 tree
-ffecom_which_entrypoint_decl ()
+ffecom_which_entrypoint_decl (void)
 {
   assert (ffecom_which_entrypoint_decl_ != NULL_TREE);
 
@@ -13129,7 +13114,7 @@ ffecom_which_entrypoint_decl ()
    "bison_rule_foo_" so they are easy to find.  */
 
 static void
-bison_rule_pushlevel_ ()
+bison_rule_pushlevel_ (void)
 {
   emit_line_note (input_filename, input_line);
   pushlevel (0);
@@ -13138,7 +13123,7 @@ bison_rule_pushlevel_ ()
 }
 
 static tree
-bison_rule_compstmt_ ()
+bison_rule_compstmt_ (void)
 {
   tree t;
   int keep = kept_level_p ();
@@ -13165,8 +13150,7 @@ bison_rule_compstmt_ ()
 
 tree
 builtin_function (const char *name, tree type, int function_code,
-		  enum built_in_class class,
-		  const char *library_name,
+		  enum built_in_class class, const char *library_name,
 		  tree attrs ATTRIBUTE_UNUSED)
 {
   tree decl = build_decl (FUNCTION_DECL, get_identifier (name), type);
@@ -13742,7 +13726,7 @@ lookup_name_current_level (tree name)
 /* Create a new `struct f_binding_level'.  */
 
 static struct f_binding_level *
-make_binding_level ()
+make_binding_level (void)
 {
   /* NOSTRICT */
   return ggc_alloc (sizeof (struct f_binding_level));
@@ -13765,7 +13749,7 @@ struct f_function *f_function_chain;
 /* Restore the variables used during compilation of a C function.  */
 
 static void
-pop_f_function_context ()
+pop_f_function_context (void)
 {
   struct f_function *p = f_function_chain;
   tree link;
@@ -13801,7 +13785,7 @@ pop_f_function_context ()
    used during compilation of a C function.  */
 
 static void
-push_f_function_context ()
+push_f_function_context (void)
 {
   struct f_function *p
   = (struct f_function *) xmalloc (sizeof (struct f_function));
@@ -14067,7 +14051,7 @@ convert (tree type, tree expr)
    store the result back using `storedecls' or you will lose.  */
 
 tree
-getdecls ()
+getdecls (void)
 {
   return current_binding_level->names;
 }
@@ -14075,13 +14059,13 @@ getdecls ()
 /* Nonzero if we are currently in the global binding level.  */
 
 int
-global_bindings_p ()
+global_bindings_p (void)
 {
   return current_binding_level == global_binding_level;
 }
 
 static void
-ffecom_init_decl_processing ()
+ffecom_init_decl_processing (void)
 {
   malloc_init ();
 
@@ -14120,10 +14104,10 @@ insert_block (tree block)
 }
 
 /* Each front end provides its own.  */
-static bool ffe_init PARAMS ((void));
-static void ffe_finish PARAMS ((void));
-static bool ffe_post_options PARAMS ((const char **));
-static void ffe_print_identifier PARAMS ((FILE *, tree, int));
+static bool ffe_init (void);
+static void ffe_finish (void);
+static bool ffe_post_options (const char **);
+static void ffe_print_identifier (FILE *, tree, int);
 
 struct language_function GTY(())
 {
@@ -14208,8 +14192,7 @@ const char *const tree_code_name[] = {
 #undef DEFTREECODE
 
 static bool
-ffe_post_options (pfilename)
-     const char **pfilename;
+ffe_post_options (const char **pfilename)
 {
   const char *filename = *pfilename;
 
@@ -14230,7 +14213,7 @@ ffe_post_options (pfilename)
 
 
 static bool
-ffe_init ()
+ffe_init (void)
 {
 #ifdef IO_BUFFER_SIZE
   setvbuf (finput, (char *) xmalloc (IO_BUFFER_SIZE), _IOFBF, IO_BUFFER_SIZE);
@@ -14254,7 +14237,7 @@ ffe_init ()
 }
 
 static void
-ffe_finish ()
+ffe_finish (void)
 {
   ffe_terminate_0 ();
 
@@ -14596,7 +14579,7 @@ pushdecl (tree x)
 /* Nonzero if the current level needs to have a BLOCK made.  */
 
 static int
-kept_level_p ()
+kept_level_p (void)
 {
   tree decl;
 
@@ -15153,7 +15136,8 @@ static struct file_name_map *read_name_map (const char *dirname);
    FIRST is the beginning of the chain to append, and LAST is the end.  */
 
 static void
-append_include_chain (struct file_name_list *first, struct file_name_list *last)
+append_include_chain (struct file_name_list *first,
+		      struct file_name_list *last)
 {
   struct file_name_list *dir;
 
diff --git a/gcc/f/com.h b/gcc/f/com.h
index 5036251..4a120af 100644
--- a/gcc/f/com.h
+++ b/gcc/f/com.h
@@ -152,13 +152,13 @@ struct _ffecom_symbol_
 #include "storag.h"
 #include "symbol.h"
 
-extern int global_bindings_p			PARAMS ((void));
-extern tree getdecls				PARAMS ((void));
-extern void pushlevel				PARAMS ((int));
-extern tree poplevel				PARAMS ((int,int, int));
-extern void insert_block			PARAMS ((tree));
-extern void set_block				PARAMS ((tree));
-extern tree pushdecl				PARAMS ((tree));
+extern int global_bindings_p (void);
+extern tree getdecls (void);
+extern void pushlevel (int);
+extern tree poplevel (int,int, int);
+extern void insert_block (tree);
+extern void set_block (tree);
+extern tree pushdecl (tree);
 
 /* Global objects accessed by users of this module. */
 
diff --git a/gcc/f/data.c b/gcc/f/data.c
index 91b835d..39e7ff8 100644
--- a/gcc/f/data.c
+++ b/gcc/f/data.c
@@ -314,7 +314,7 @@ ffedata_value (ffetargetIntegerDefault rpt, ffebld value, ffelexToken token)
    CHARTYPE is CHARACTER*3, for example.  */
 
 static bool
-ffedata_advance_ ()
+ffedata_advance_ (void)
 {
   ffebld next;
 
@@ -1457,7 +1457,7 @@ ffedata_gather_ (ffestorag mst, ffestorag st)
    ffedata_pop_();  */
 
 static void
-ffedata_pop_ ()
+ffedata_pop_ (void)
 {
   ffedataImpdo_ victim = ffedata_stack_;
 
@@ -1473,7 +1473,7 @@ ffedata_pop_ ()
    ffedata_push_();  */
 
 static void
-ffedata_push_ ()
+ffedata_push_ (void)
 {
   ffedataImpdo_ baby;
 
diff --git a/gcc/f/equiv.c b/gcc/f/equiv.c
index f58de9c..bd7ac6d 100644
--- a/gcc/f/equiv.c
+++ b/gcc/f/equiv.c
@@ -1,5 +1,6 @@
 /* equiv.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+   Copyright (C) 1995, 1996, 1997, 1998, 2003
+   Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -918,7 +919,7 @@ ffeequiv_add (ffeequiv eq, ffebld list, ffelexToken t)
    ffeequiv_exec_transition();	*/
 
 void
-ffeequiv_exec_transition ()
+ffeequiv_exec_transition (void)
 {
   while (ffeequiv_list_.first != (ffeequiv) &ffeequiv_list_.first)
     ffeequiv_layout_local_ (ffeequiv_list_.first);
@@ -931,7 +932,7 @@ ffeequiv_exec_transition ()
    Initializes the list of equivalences.  */
 
 void
-ffeequiv_init_2 ()
+ffeequiv_init_2 (void)
 {
   ffeequiv_list_.first = (ffeequiv) &ffeequiv_list_.first;
   ffeequiv_list_.last = (ffeequiv) &ffeequiv_list_.first;
@@ -1312,7 +1313,7 @@ ffeequiv_merge (ffeequiv eq1, ffeequiv eq2, ffelexToken t)
    objects.  */
 
 ffeequiv
-ffeequiv_new ()
+ffeequiv_new (void)
 {
   ffeequiv eq;
 
diff --git a/gcc/f/expr.c b/gcc/f/expr.c
index 1777592..0c22fb9 100644
--- a/gcc/f/expr.c
+++ b/gcc/f/expr.c
@@ -6319,7 +6319,7 @@ ffeexpr_convert_to_sym (ffebld source, ffelexToken source_token,
 /* Initializes the module.  */
 
 void
-ffeexpr_init_2 ()
+ffeexpr_init_2 (void)
 {
   ffeexpr_stack_ = NULL;
   ffeexpr_level_ = 0;
@@ -8484,7 +8484,7 @@ ffeexpr_expr_kill_ (ffeexprExpr_ e)
    Allocates and initializes a new expression object, returns it.  */
 
 static ffeexprExpr_
-ffeexpr_expr_new_ ()
+ffeexpr_expr_new_ (void)
 {
   ffeexprExpr_ e;
 
@@ -8792,7 +8792,7 @@ again:
    requisite type-assignment.  */
 
 static void
-ffeexpr_reduce_ ()
+ffeexpr_reduce_ (void)
 {
   ffeexprExpr_ operand;		/* This is B in -B or A+B. */
   ffeexprExpr_ left_operand;	/* When operator is binary, this is A in A+B. */
@@ -18534,7 +18534,7 @@ ffeexpr_token_anything_ (ffelexToken ft UNUSED, ffebld expr UNUSED,
 /* Terminate module.  */
 
 void
-ffeexpr_terminate_2 ()
+ffeexpr_terminate_2 (void)
 {
   assert (ffeexpr_stack_ == NULL);
   assert (ffeexpr_level_ == 0);
diff --git a/gcc/f/g77spec.c b/gcc/f/g77spec.c
index 4e6e53c..dc8347c 100644
--- a/gcc/f/g77spec.c
+++ b/gcc/f/g77spec.c
@@ -93,9 +93,8 @@ typedef enum
 /* The original argument list and related info is copied here.  */
 static int g77_xargc;
 static const char *const *g77_xargv;
-static void lookup_option PARAMS ((Option *, int *, const char **,
-				   const char *));
-static void append_arg PARAMS ((const char *));
+static void lookup_option (Option *, int *, const char **, const char *);
+static void append_arg (const char *);
 
 /* The new argument list will be built here.  */
 static int g77_newargc;
@@ -118,11 +117,7 @@ static const char **g77_newargv;
    to short ones, where available, has already been run.  */
 
 static void
-lookup_option (xopt, xskip, xarg, text)
-     Option *xopt;
-     int *xskip;
-     const char **xarg;
-     const char *text;
+lookup_option (Option *xopt, int *xskip, const char **xarg, const char *text)
 {
   Option opt = OPTION_;
   int skip;
@@ -202,8 +197,7 @@ lookup_option (xopt, xskip, xarg, text)
    the new arg count.  Otherwise allocate a new list, etc.  */
 
 static void
-append_arg (arg)
-     const char *arg;
+append_arg (const char *arg)
 {
   static int newargsize;
 
@@ -239,10 +233,8 @@ append_arg (arg)
 }
 
 void
-lang_specific_driver (in_argc, in_argv, in_added_libraries)
-     int *in_argc;
-     const char *const **in_argv;
-     int *in_added_libraries ATTRIBUTE_UNUSED;
+lang_specific_driver (int *in_argc, const char *const **in_argv,
+		      int *in_added_libraries ATTRIBUTE_UNUSED)
 {
   int argc = *in_argc;
   const char *const *argv = *in_argv;
@@ -532,7 +524,7 @@ or type the command `info -f g77 Copying'.\n\
 }
 
 /* Called before linking.  Returns 0 on success and -1 on failure. */
-int lang_specific_pre_link ()  /* Not used for F77. */
+int lang_specific_pre_link (void)  /* Not used for F77. */
 {
   return 0;
 }
diff --git a/gcc/f/global.c b/gcc/f/global.c
index 73c6ec5..f175f1e 100644
--- a/gcc/f/global.c
+++ b/gcc/f/global.c
@@ -124,7 +124,7 @@ ffeglobal_new_ (ffename n)
    ffeglobal_init_1();	*/
 
 void
-ffeglobal_init_1 ()
+ffeglobal_init_1 (void)
 {
 #if FFEGLOBAL_ENABLED
   if (ffeglobal_filewide_ != NULL)
@@ -1584,6 +1584,6 @@ ffeglobal_size_common (ffesymbol s, ffetargetOffset size)
 
 #endif
 void
-ffeglobal_terminate_1 ()
+ffeglobal_terminate_1 (void)
 {
 }
diff --git a/gcc/f/implic.c b/gcc/f/implic.c
index 6fe4606..c7a28cb 100644
--- a/gcc/f/implic.c
+++ b/gcc/f/implic.c
@@ -1,5 +1,5 @@
 /* implic.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995, 2002 Free Software Foundation, Inc.
+   Copyright (C) 1995, 2002, 2003 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -220,7 +220,7 @@ ffeimplic_establish_symbol (ffesymbol s)
    Allows for holes in the sequence of letters (i.e. EBCDIC).  */
 
 void
-ffeimplic_init_2 ()
+ffeimplic_init_2 (void)
 {
   ffeimplic_ imp;
   char c;
@@ -312,7 +312,7 @@ ffeimplic_init_2 ()
    Assigns null type information to all initial letters.  */
 
 void
-ffeimplic_none ()
+ffeimplic_none (void)
 {
   ffeimplic_ imp;
 
@@ -378,6 +378,6 @@ ffeimplic_peek_symbol_type (ffesymbol s, const char *name)
    Kills info object for each entry in table.  */
 
 void
-ffeimplic_terminate_2 ()
+ffeimplic_terminate_2 (void)
 {
 }
diff --git a/gcc/f/info.c b/gcc/f/info.c
index 1bedaa0..3c0030f 100644
--- a/gcc/f/info.c
+++ b/gcc/f/info.c
@@ -1,5 +1,5 @@
 /* info.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995, 2002 Free Software Foundation, Inc.
+   Copyright (C) 1995, 2002, 2003 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -141,7 +141,7 @@ ffeinfo_basictype_string (ffeinfoBasictype basictype)
    ffeinfo_init_0();  */
 
 void
-ffeinfo_init_0 ()
+ffeinfo_init_0 (void)
 {
   ffeinfoBasictype i;
   ffeinfoBasictype j;
diff --git a/gcc/f/intdoc.c b/gcc/f/intdoc.c
index 0ad83e4..b24c79a 100644
--- a/gcc/f/intdoc.c
+++ b/gcc/f/intdoc.c
@@ -1,5 +1,6 @@
 /* intdoc.c
-   Copyright (C) 1997, 2000, 2001 Free Software Foundation, Inc.
+   Copyright (C) 1997, 2000, 2001, 2003
+   Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -237,13 +238,13 @@ dumpif (ffeintrinFamily fam)
 }
 
 static void
-dumpendif ()
+dumpendif (void)
 {
   in_ifset = 2;
 }
 
 static void
-dumpclearif ()
+dumpclearif (void)
 {
   if ((in_ifset == 2)
       || (latest_family != FFEINTRIN_familyNONE))
@@ -253,7 +254,7 @@ dumpclearif ()
 }
 
 static void
-dumpem ()
+dumpem (void)
 {
   int i;
 
diff --git a/gcc/f/intrin.c b/gcc/f/intrin.c
index cc100bf..a379684 100644
--- a/gcc/f/intrin.c
+++ b/gcc/f/intrin.c
@@ -1589,7 +1589,7 @@ ffeintrin_gfrt_indirect (ffeintrinImp imp)
 }
 
 void
-ffeintrin_init_0 ()
+ffeintrin_init_0 (void)
 {
   int i;
   const char *p1;
diff --git a/gcc/f/lab.c b/gcc/f/lab.c
index dcfb883..8691897 100644
--- a/gcc/f/lab.c
+++ b/gcc/f/lab.c
@@ -94,7 +94,7 @@ ffelab_find (ffelabValue v)
    Kill all the labels on the list.  */
 
 void
-ffelab_finish ()
+ffelab_finish (void)
 {
   ffelab l;
   ffelab pl;
@@ -115,7 +115,7 @@ ffelab_finish ()
    unit is going to be processed.  */
 
 void
-ffelab_init_3 ()
+ffelab_init_3 (void)
 {
   ffelab_list_ = NULL;
   ffelab_num_news_ = 0;
diff --git a/gcc/f/lex.c b/gcc/f/lex.c
index 39b9c62..478d767 100644
--- a/gcc/f/lex.c
+++ b/gcc/f/lex.c
@@ -834,7 +834,7 @@ ffelex_file_push_ (int old_lineno, const char *filename)
    typical fixed-form cases.  */
 
 static void
-ffelex_prepare_eos_ ()
+ffelex_prepare_eos_ (void)
 {
   if (ffelex_token_->type != FFELEX_typeNONE)
     {
@@ -883,7 +883,7 @@ ffelex_prepare_eos_ ()
 }
 
 static void
-ffelex_finish_statement_ ()
+ffelex_finish_statement_ (void)
 {
   if ((ffelex_number_of_tokens_ == 0)
       && (ffelex_token_->type == FFELEX_typeNONE))
@@ -1398,7 +1398,7 @@ ffelex_image_char_ (int c, ffewhereColumnNumber column)
 }
 
 static void
-ffelex_include_ ()
+ffelex_include_ (void)
 {
   ffewhereFile include_wherefile = ffelex_include_wherefile_;
   FILE *include_file = ffelex_include_file_;
@@ -1508,7 +1508,7 @@ ffelex_is_free_nonc_ctx_contin_ (ffewhereColumnNumber col)
 }
 
 static void
-ffelex_next_line_ ()
+ffelex_next_line_ (void)
 {
   ffelex_linecount_current_ = ffelex_linecount_next_;
   ++ffelex_linecount_next_;
@@ -1516,7 +1516,7 @@ ffelex_next_line_ ()
 }
 
 static void
-ffelex_send_token_ ()
+ffelex_send_token_ (void)
 {
   ++ffelex_number_of_tokens_;
 
@@ -1590,7 +1590,7 @@ ffelex_swallow_tokens_ (ffelexToken t)
 }
 
 static ffelexToken
-ffelex_token_new_ ()
+ffelex_token_new_ (void)
 {
   ffelexToken t;
 
@@ -1688,7 +1688,7 @@ ffelex_display_token (ffelexToken t)
    return FALSE.  */
 
 bool
-ffelex_expecting_character ()
+ffelex_expecting_character (void)
 {
   return (ffelex_raw_mode_ != 0);
 }
@@ -3825,7 +3825,7 @@ ffelex_hash_kludge (FILE *finput)
 }
 
 void
-ffelex_init_1 ()
+ffelex_init_1 (void)
 {
   unsigned int i;
 
@@ -3906,7 +3906,7 @@ ffelex_init_1 ()
    Must be called while lexer is active, obviously.  */
 
 bool
-ffelex_is_names_expected ()
+ffelex_is_names_expected (void)
 {
   return ffelex_names_;
 }
@@ -3915,7 +3915,7 @@ ffelex_is_names_expected ()
    ffelex_linecount_current_.  */
 
 char *
-ffelex_line ()
+ffelex_line (void)
 {
   return ffelex_card_image_;
 }
@@ -3927,7 +3927,7 @@ ffelex_line ()
    Must be called while lexer is active, obviously.  */
 
 ffewhereColumnNumber
-ffelex_line_length ()
+ffelex_line_length (void)
 {
   return ffelex_card_length_;
 }
@@ -3936,7 +3936,7 @@ ffelex_line_length ()
    is current.  */
 
 ffewhereLineNumber
-ffelex_line_number ()
+ffelex_line_number (void)
 {
   return ffelex_linecount_current_;
 }
@@ -4371,7 +4371,7 @@ ffelex_token_new_character (const char *s, ffewhereLine l, ffewhereColumn c)
 /* Make a new EOF token right after end of file.  */
 
 ffelexToken
-ffelex_token_new_eof ()
+ffelex_token_new_eof (void)
 {
   ffelexToken t;
 
diff --git a/gcc/f/malloc.c b/gcc/f/malloc.c
index 77e2e4a..7a84781 100644
--- a/gcc/f/malloc.c
+++ b/gcc/f/malloc.c
@@ -1,5 +1,5 @@
 /* malloc.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995 Free Software Foundation, Inc.
+   Copyright (C) 1995, 2003 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -136,7 +136,7 @@ malloc_verify_area_ (mallocPool pool UNUSED, mallocArea_ a UNUSED)
    Call malloc_init before you do anything else.  */
 
 void
-malloc_init ()
+malloc_init (void)
 {
   if (malloc_reserve_ != NULL)
     return;
diff --git a/gcc/f/src.c b/gcc/f/src.c
index 28c55cc..54fc777 100644
--- a/gcc/f/src.c
+++ b/gcc/f/src.c
@@ -1,5 +1,5 @@
 /* src.c -- Implementation File
-   Copyright (C) 1995 Free Software Foundation, Inc.
+   Copyright (C) 1995, 2003 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -93,7 +93,7 @@ bool ffesrc_ok_match_noninit_lower_;
 /* Initialize table of alphabetic matches. */
 
 void
-ffesrc_init_1 ()
+ffesrc_init_1 (void)
 {
   int i;
 
diff --git a/gcc/f/st.c b/gcc/f/st.c
index 8f27f89..cdfdfb5 100644
--- a/gcc/f/st.c
+++ b/gcc/f/st.c
@@ -1,5 +1,5 @@
 /* st.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995 Free Software Foundation, Inc.
+   Copyright (C) 1995, 2003 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -141,7 +141,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
    yet been set.  */
 
 void
-ffest_confirmed ()
+ffest_confirmed (void)
 {
   ffesta_confirmed ();
 }
@@ -160,7 +160,7 @@ ffest_confirmed ()
       processing a statement (make and destroy pools, et cetera).  */
 
 void
-ffest_eof ()
+ffest_eof (void)
 {
   ffesta_eof ();
 }
@@ -242,7 +242,7 @@ ffest_first (ffelexToken t)
    this list.  Initializes the executable and nonexecutable lists.  */
 
 void
-ffest_init_0 ()
+ffest_init_0 (void)
 {
   ffesta_init_0 ();
   ffestb_init_0 ();
@@ -271,7 +271,7 @@ ffest_init_0 ()
    this list.  Initializes the executable and nonexecutable lists.  */
 
 void
-ffest_init_1 ()
+ffest_init_1 (void)
 {
   ffesta_init_1 ();
   ffestb_init_1 ();
@@ -300,7 +300,7 @@ ffest_init_1 ()
    this list.  Initializes the executable and nonexecutable lists.  */
 
 void
-ffest_init_2 ()
+ffest_init_2 (void)
 {
   ffesta_init_2 ();
   ffestb_init_2 ();
@@ -321,7 +321,7 @@ ffest_init_2 ()
    ffest_init_3();  */
 
 void
-ffest_init_3 ()
+ffest_init_3 (void)
 {
   ffesta_init_3 ();
   ffestb_init_3 ();
@@ -344,7 +344,7 @@ ffest_init_3 ()
    ffest_init_4();  */
 
 void
-ffest_init_4 ()
+ffest_init_4 (void)
 {
   ffesta_init_4 ();
   ffestb_init_4 ();
@@ -366,7 +366,7 @@ ffest_init_4 ()
    Else returns FALSE.  */
 
 bool
-ffest_is_entry_valid ()
+ffest_is_entry_valid (void)
 {
   return ffesta_is_entry_valid;
 }
@@ -396,7 +396,7 @@ ffest_is_entry_valid ()
    the ffestb call would be completely dropped without this mechanism.	*/
 
 bool
-ffest_is_inhibited ()
+ffest_is_inhibited (void)
 {
   return ffesta_is_inhibited ();
 }
@@ -412,7 +412,7 @@ ffest_is_inhibited ()
    is being run.  */
 
 bool
-ffest_seen_first_exec ()
+ffest_seen_first_exec (void)
 {
   return ffesta_seen_first_exec;
 }
@@ -421,7 +421,7 @@ ffest_seen_first_exec ()
    user with a diagnostic if we're not inhibited.  */
 
 void
-ffest_shutdown ()
+ffest_shutdown (void)
 {
   ffesta_shutdown ();
 }
@@ -453,7 +453,7 @@ ffest_sym_exec_transition (ffesymbol s)
    ffest_terminate_0();	 */
 
 void
-ffest_terminate_0 ()
+ffest_terminate_0 (void)
 {
   ffesta_terminate_0 ();
   ffestb_terminate_0 ();
@@ -474,7 +474,7 @@ ffest_terminate_0 ()
    ffest_terminate_1();	 */
 
 void
-ffest_terminate_1 ()
+ffest_terminate_1 (void)
 {
   ffesta_terminate_1 ();
   ffestb_terminate_1 ();
@@ -495,7 +495,7 @@ ffest_terminate_1 ()
    ffest_terminate_2();	 */
 
 void
-ffest_terminate_2 ()
+ffest_terminate_2 (void)
 {
   ffesta_terminate_2 ();
   ffestb_terminate_2 ();
@@ -516,7 +516,7 @@ ffest_terminate_2 ()
    ffest_terminate_3();	 */
 
 void
-ffest_terminate_3 ()
+ffest_terminate_3 (void)
 {
   ffesta_terminate_3 ();
   ffestb_terminate_3 ();
@@ -537,7 +537,7 @@ ffest_terminate_3 ()
    ffest_terminate_4();	 */
 
 void
-ffest_terminate_4 ()
+ffest_terminate_4 (void)
 {
   ffesta_terminate_4 ();
   ffestb_terminate_4 ();
diff --git a/gcc/f/sta.c b/gcc/f/sta.c
index 765425a..885f44c 100644
--- a/gcc/f/sta.c
+++ b/gcc/f/sta.c
@@ -183,7 +183,7 @@ ffesta_add_possible_ (ffelexHandler fn, bool exec, bool named)
    invocation of ffestc_exec_transition.  */
 
 static bool
-ffesta_inhibited_exec_transition_ ()
+ffesta_inhibited_exec_transition_ (void)
 {
   bool result;
 
@@ -208,7 +208,7 @@ ffesta_inhibited_exec_transition_ ()
    Clears the lists of executable and nonexecutable statements.	 */
 
 static void
-ffesta_reset_possibles_ ()
+ffesta_reset_possibles_ (void)
 {
   ffesta_num_possibles_ = 0;
 
@@ -1123,7 +1123,7 @@ ffesta_send_two_ (ffelexToken t)
    yet been set.  */
 
 void
-ffesta_confirmed ()
+ffesta_confirmed (void)
 {
   if (ffesta_inhibit_confirmation_)
     return;
@@ -1147,7 +1147,7 @@ ffesta_confirmed ()
       processing a statement (make and destroy pools, et cetera).  */
 
 void
-ffesta_eof ()
+ffesta_eof (void)
 {
   ffesta_tokens[0] = ffelex_token_new_eof ();
 
@@ -1314,7 +1314,7 @@ ffesta_first (ffelexToken t)
    this list.  Initializes the executable and nonexecutable lists.  */
 
 void
-ffesta_init_0 ()
+ffesta_init_0 (void)
 {
   ffestaPossible_ ptr;
   int i;
@@ -1339,7 +1339,7 @@ ffesta_init_0 ()
    ffesta_init_3();  */
 
 void
-ffesta_init_3 ()
+ffesta_init_3 (void)
 {
   ffesta_output_pool = NULL;	/* May be doing this just before reaching */
   ffesta_scratch_pool = NULL;	/* ffesta_zero or ffesta_two. */
@@ -1376,7 +1376,7 @@ ffesta_init_3 ()
    the ffestb call would be completely dropped without this mechanism.	*/
 
 bool
-ffesta_is_inhibited ()
+ffesta_is_inhibited (void)
 {
   assert (ffesta_confirmed_current_ || ffesta_inhibit_confirmation_);
   return ffesta_is_inhibited_;
@@ -1525,7 +1525,7 @@ ffesta_ffebad_2t (ffebad errnum, ffelexToken t1, ffelexToken t2)
 }
 
 ffestaPooldisp
-ffesta_outpooldisp ()
+ffesta_outpooldisp (void)
 {
   return ffesta_outpooldisp_;
 }
@@ -1540,7 +1540,7 @@ ffesta_set_outpooldisp (ffestaPooldisp d)
    user with a diagnostic if we're not inhibited.  */
 
 void
-ffesta_shutdown ()
+ffesta_shutdown (void)
 {
   if (ffesta_is_inhibited_)
     ffesta_current_shutdown_ = TRUE;
diff --git a/gcc/f/stb.c b/gcc/f/stb.c
index 2264a70..673f96c 100644
--- a/gcc/f/stb.c
+++ b/gcc/f/stb.c
@@ -815,7 +815,7 @@ ffestb_subr_ambig_nope_ (ffelexToken t)
    in _ents_ (perform housekeeping tasks).  */
 
 static void
-ffestb_subr_ambig_to_ents_ ()
+ffestb_subr_ambig_to_ents_ (void)
 {
   ffelexToken nt;
 
@@ -9460,7 +9460,7 @@ ffestb_subr_kill_easy_ (ffestpInquireIx max)
 
 #if !FFESTB_KILL_EASY_
 static void
-ffestb_subr_kill_accept_ ()
+ffestb_subr_kill_accept_ (void)
 {
   ffestpAcceptIx ix;
 
@@ -9486,7 +9486,7 @@ ffestb_subr_kill_accept_ ()
 
 #if !FFESTB_KILL_EASY_
 static void
-ffestb_subr_kill_beru_ ()
+ffestb_subr_kill_beru_ (void)
 {
   ffestpBeruIx ix;
 
@@ -9511,7 +9511,7 @@ ffestb_subr_kill_beru_ ()
 
 #if !FFESTB_KILL_EASY_
 static void
-ffestb_subr_kill_close_ ()
+ffestb_subr_kill_close_ (void)
 {
   ffestpCloseIx ix;
 
@@ -9536,7 +9536,7 @@ ffestb_subr_kill_close_ ()
 
 #if !FFESTB_KILL_EASY_
 static void
-ffestb_subr_kill_delete_ ()
+ffestb_subr_kill_delete_ (void)
 {
   ffestpDeleteIx ix;
 
@@ -9561,7 +9561,7 @@ ffestb_subr_kill_delete_ ()
 
 #if !FFESTB_KILL_EASY_
 static void
-ffestb_subr_kill_inquire_ ()
+ffestb_subr_kill_inquire_ (void)
 {
   ffestpInquireIx ix;
 
@@ -9586,7 +9586,7 @@ ffestb_subr_kill_inquire_ ()
 
 #if !FFESTB_KILL_EASY_
 static void
-ffestb_subr_kill_open_ ()
+ffestb_subr_kill_open_ (void)
 {
   ffestpOpenIx ix;
 
@@ -9611,7 +9611,7 @@ ffestb_subr_kill_open_ ()
 
 #if !FFESTB_KILL_EASY_
 static void
-ffestb_subr_kill_print_ ()
+ffestb_subr_kill_print_ (void)
 {
   ffestpPrintIx ix;
 
@@ -9636,7 +9636,7 @@ ffestb_subr_kill_print_ ()
 
 #if !FFESTB_KILL_EASY_
 static void
-ffestb_subr_kill_read_ ()
+ffestb_subr_kill_read_ (void)
 {
   ffestpReadIx ix;
 
@@ -9661,7 +9661,7 @@ ffestb_subr_kill_read_ ()
 
 #if !FFESTB_KILL_EASY_
 static void
-ffestb_subr_kill_rewrite_ ()
+ffestb_subr_kill_rewrite_ (void)
 {
   ffestpRewriteIx ix;
 
@@ -9686,7 +9686,7 @@ ffestb_subr_kill_rewrite_ ()
 
 #if !FFESTB_KILL_EASY_
 static void
-ffestb_subr_kill_type_ ()
+ffestb_subr_kill_type_ (void)
 {
   ffestpTypeIx ix;
 
@@ -9711,7 +9711,7 @@ ffestb_subr_kill_type_ ()
 
 #if !FFESTB_KILL_EASY_
 static void
-ffestb_subr_kill_write_ ()
+ffestb_subr_kill_write_ (void)
 {
   ffestpWriteIx ix;
 
diff --git a/gcc/f/stc.c b/gcc/f/stc.c
index 19639c1..f859fac 100644
--- a/gcc/f/stc.c
+++ b/gcc/f/stc.c
@@ -599,7 +599,7 @@ ffestc_establish_impletter_ (ffelexToken first, ffelexToken last)
    ffestc_init_3();  */
 
 void
-ffestc_init_3 ()
+ffestc_init_3 (void)
 {
   ffestv_save_state_ = FFESTV_savestateNONE;
   ffestc_entry_num_ = 0;
@@ -614,7 +614,7 @@ ffestc_init_3 ()
    defs, and statement function defs.  */
 
 void
-ffestc_init_4 ()
+ffestc_init_4 (void)
 {
   ffestc_saved_entry_num_ = ffestc_entry_num_;
   ffestc_entry_num_ = 0;
@@ -683,7 +683,7 @@ ffestc_kindtype_star_ (ffeinfoBasictype bt, ffetargetCharacterSize val)
 /* Define label as usable for anything without complaint.  */
 
 static void
-ffestc_labeldef_any_ ()
+ffestc_labeldef_any_ (void)
 {
   if ((ffesta_label_token == NULL)
       || !ffestc_labeldef_begin_ ())
@@ -700,7 +700,7 @@ ffestc_labeldef_any_ ()
    ffestc_labeldef_begin_();  */
 
 static bool
-ffestc_labeldef_begin_ ()
+ffestc_labeldef_begin_ (void)
 {
   ffelabValue label_value;
   ffelab label;
@@ -757,7 +757,7 @@ ffestc_labeldef_begin_ ()
    ffestc_labeldef_branch_begin_();  */
 
 static void
-ffestc_labeldef_branch_begin_ ()
+ffestc_labeldef_branch_begin_ (void)
 {
   if ((ffesta_label_token == NULL)
       || (ffestc_shriek_after1_ != NULL)
@@ -841,7 +841,7 @@ ffestc_labeldef_branch_begin_ ()
    which case they must issue a diagnostic).  */
 
 static void
-ffestc_labeldef_branch_end_ ()
+ffestc_labeldef_branch_end_ (void)
 {
   if (ffesta_label_token == NULL)
     return;
@@ -865,7 +865,7 @@ ffestc_labeldef_branch_end_ ()
    ffestc_labeldef_endif_();  */
 
 static void
-ffestc_labeldef_endif_ ()
+ffestc_labeldef_endif_ (void)
 {
   if ((ffesta_label_token == NULL)
       || (ffestc_shriek_after1_ != NULL)
@@ -954,7 +954,7 @@ ffestc_labeldef_endif_ ()
    ffestc_labeldef_format_();  */
 
 static void
-ffestc_labeldef_format_ ()
+ffestc_labeldef_format_ (void)
 {
   if ((ffesta_label_token == NULL)
       || (ffestc_shriek_after1_ != NULL))
@@ -1037,7 +1037,7 @@ ffestc_labeldef_format_ ()
    ffestc_labeldef_invalid_();	*/
 
 static void
-ffestc_labeldef_invalid_ ()
+ffestc_labeldef_invalid_ (void)
 {
   if ((ffesta_label_token == NULL)
       || (ffestc_shriek_after1_ != NULL)
@@ -1062,7 +1062,7 @@ ffestc_labeldef_invalid_ ()
    be in the "then" part of a logical IF, such as a block-IF statement.  */
 
 static void
-ffestc_labeldef_notloop_ ()
+ffestc_labeldef_notloop_ (void)
 {
   if (ffesta_label_token == NULL)
     return;
@@ -1156,7 +1156,7 @@ ffestc_labeldef_notloop_ ()
    loop-ending label.  */
 
 static void
-ffestc_labeldef_notloop_begin_ ()
+ffestc_labeldef_notloop_begin_ (void)
 {
   if ((ffesta_label_token == NULL)
       || (ffestc_shriek_after1_ != NULL)
@@ -1244,7 +1244,7 @@ ffestc_labeldef_notloop_begin_ ()
    ffestc_labeldef_useless_();	*/
 
 static void
-ffestc_labeldef_useless_ ()
+ffestc_labeldef_useless_ (void)
 {
   if ((ffesta_label_token == NULL)
       || (ffestc_shriek_after1_ != NULL)
@@ -1750,7 +1750,7 @@ ffestc_labelref_is_loopend_ (ffelexToken label_token, ffelab *x_label)
        return;	*/
 
 static ffestcOrder_
-ffestc_order_actiondo_ ()
+ffestc_order_actiondo_ (void)
 {
   recurse:
 
@@ -1795,7 +1795,7 @@ ffestc_order_actiondo_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_actionif_ ()
+ffestc_order_actionif_ (void)
 {
   bool update;
 
@@ -1879,7 +1879,7 @@ recurse:
        return;	*/
 
 static ffestcOrder_
-ffestc_order_actionwhere_ ()
+ffestc_order_actionwhere_ (void)
 {
   bool update;
 
@@ -1961,7 +1961,7 @@ recurse:
    doesn't produce any diagnostics.  */
 
 static void
-ffestc_order_any_ ()
+ffestc_order_any_ (void)
 {
   bool update;
 
@@ -2047,7 +2047,7 @@ recurse:
    now.	 */
 
 static void
-ffestc_order_bad_ ()
+ffestc_order_bad_ (void)
 {
   if (ffewhere_line_is_unknown (ffestw_line (ffestw_stack_top ())))
     {
@@ -2073,7 +2073,7 @@ ffestc_order_bad_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_blockdata_ ()
+ffestc_order_blockdata_ (void)
 {
   recurse:
 
@@ -2111,7 +2111,7 @@ ffestc_order_blockdata_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_blockspec_ ()
+ffestc_order_blockspec_ (void)
 {
   recurse:
 
@@ -2186,7 +2186,7 @@ ffestc_order_blockspec_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_data_ ()
+ffestc_order_data_ (void)
 {
   recurse:
 
@@ -2263,7 +2263,7 @@ ffestc_order_data_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_data77_ ()
+ffestc_order_data77_ (void)
 {
   recurse:
 
@@ -2341,7 +2341,7 @@ ffestc_order_data77_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_do_ ()
+ffestc_order_do_ (void)
 {
   switch (ffestw_state (ffestw_stack_top ()))
     {
@@ -2369,7 +2369,7 @@ ffestc_order_do_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_entry_ ()
+ffestc_order_entry_ (void)
 {
   recurse:
 
@@ -2434,7 +2434,7 @@ ffestc_order_entry_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_exec_ ()
+ffestc_order_exec_ (void)
 {
   bool update;
 
@@ -2519,7 +2519,7 @@ recurse:
        return;	*/
 
 static ffestcOrder_
-ffestc_order_format_ ()
+ffestc_order_format_ (void)
 {
   recurse:
 
@@ -2587,7 +2587,7 @@ ffestc_order_format_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_function_ ()
+ffestc_order_function_ (void)
 {
   recurse:
 
@@ -2625,7 +2625,7 @@ ffestc_order_function_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_iface_ ()
+ffestc_order_iface_ (void)
 {
   switch (ffestw_state (ffestw_stack_top ()))
     {
@@ -2658,7 +2658,7 @@ ffestc_order_iface_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_ifthen_ ()
+ffestc_order_ifthen_ (void)
 {
   switch (ffestw_state (ffestw_stack_top ()))
     {
@@ -2686,7 +2686,7 @@ ffestc_order_ifthen_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_implicit_ ()
+ffestc_order_implicit_ (void)
 {
   recurse:
 
@@ -2757,7 +2757,7 @@ ffestc_order_implicit_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_implicitnone_ ()
+ffestc_order_implicitnone_ (void)
 {
   recurse:
 
@@ -2821,7 +2821,7 @@ ffestc_order_implicitnone_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_parameter_ ()
+ffestc_order_parameter_ (void)
 {
   recurse:
 
@@ -2901,7 +2901,7 @@ ffestc_order_parameter_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_program_ ()
+ffestc_order_program_ (void)
 {
   recurse:
 
@@ -2943,7 +2943,7 @@ ffestc_order_program_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_progspec_ ()
+ffestc_order_progspec_ (void)
 {
   recurse:
 
@@ -3025,7 +3025,7 @@ ffestc_order_progspec_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_selectcase_ ()
+ffestc_order_selectcase_ (void)
 {
   switch (ffestw_state (ffestw_stack_top ()))
     {
@@ -3054,7 +3054,7 @@ ffestc_order_selectcase_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_sfunc_ ()
+ffestc_order_sfunc_ (void)
 {
   recurse:
 
@@ -3113,7 +3113,7 @@ ffestc_order_sfunc_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_subroutine_ ()
+ffestc_order_subroutine_ (void)
 {
   recurse:
 
@@ -3151,7 +3151,7 @@ ffestc_order_subroutine_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_typedecl_ ()
+ffestc_order_typedecl_ (void)
 {
   recurse:
 
@@ -3226,7 +3226,7 @@ ffestc_order_typedecl_ ()
        return;	*/
 
 static ffestcOrder_
-ffestc_order_unit_ ()
+ffestc_order_unit_ (void)
 {
   switch (ffestw_state (ffestw_stack_top ()))
     {
@@ -3563,7 +3563,7 @@ ffestc_promote_sfdummy_ (ffelexToken t)
    of a main program unit.  */
 
 static void
-ffestc_shriek_begin_program_ ()
+ffestc_shriek_begin_program_ (void)
 {
   ffestw b;
   ffesymbol s;
@@ -4107,7 +4107,7 @@ ffestc_subr_unit_ (ffestpFile *spec)
    like "DO 10", "IF (...) THEN", "10 ELSE", "END IF", "END".  */
 
 static void
-ffestc_try_shriek_do_ ()
+ffestc_try_shriek_do_ (void)
 {
   ffelab lab;
   ffelabType ty;
@@ -4236,7 +4236,7 @@ ffestc_decl_item (ffelexToken name, ffebld kind, ffelexToken kindt,
    Gonna specify values for the object now.  */
 
 void
-ffestc_decl_itemstartvals ()
+ffestc_decl_itemstartvals (void)
 {
   switch (ffestc_local_.decl.is_R426)
     {
@@ -4298,7 +4298,7 @@ ffestc_decl_itemendvals (ffelexToken t)
    Just wrap up any local activities.  */
 
 void
-ffestc_decl_finish ()
+ffestc_decl_finish (void)
 {
   switch (ffestc_local_.decl.is_R426)
     {
@@ -4339,7 +4339,7 @@ ffestc_elsewhere (ffelexToken where)
    it.	*/
 
 void
-ffestc_end ()
+ffestc_end (void)
 {
   ffestw b;
 
@@ -4422,7 +4422,7 @@ recurse:
    block's shriek function to clean up to state NIL.  */
 
 void
-ffestc_eof ()
+ffestc_eof (void)
 {
   if (ffestw_state (ffestw_stack_top ()) != FFESTV_stateNIL)
     {
@@ -4457,7 +4457,7 @@ ffestc_eof ()
    seeing the unrecognized statement?  we do the former at the moment).  */
 
 bool
-ffestc_exec_transition ()
+ffestc_exec_transition (void)
 {
   bool update;
 
@@ -4561,7 +4561,7 @@ ffestc_ffebad_here_doiter (ffebadIndex i, ffesymbol s)
    is the R1219 function-stmt case).  */
 
 bool
-ffestc_is_decl_not_R1219 ()
+ffestc_is_decl_not_R1219 (void)
 {
   switch (ffestw_state (ffestw_stack_top ()))
     {
@@ -4591,7 +4591,7 @@ ffestc_is_decl_not_R1219 ()
    if the ENTRY is in a function context.  */
 
 bool
-ffestc_is_entry_in_subr ()
+ffestc_is_entry_in_subr (void)
 {
   ffestvState s;
 
@@ -4630,7 +4630,7 @@ recurse:
    explicit typing of name.  */
 
 bool
-ffestc_is_let_not_V027 ()
+ffestc_is_let_not_V027 (void)
 {
   switch (ffestw_state (ffestw_stack_top ()))
     {
@@ -4659,7 +4659,7 @@ ffestc_is_let_not_V027 ()
    defs, and statement function defs.  */
 
 void
-ffestc_terminate_4 ()
+ffestc_terminate_4 (void)
 {
   ffestc_entry_num_ = ffestc_saved_entry_num_;
 }
@@ -5023,7 +5023,7 @@ ffestc_R501_item (ffelexToken name, ffebld kind, ffelexToken kindt,
    Gonna specify values for the object now.  */
 
 void
-ffestc_R501_itemstartvals ()
+ffestc_R501_itemstartvals (void)
 {
   ffestc_check_item_startvals_ ();
 
@@ -5091,7 +5091,7 @@ ffestc_R501_itemendvals (ffelexToken t)
    Just wrap up any local activities.  */
 
 void
-ffestc_R501_finish ()
+ffestc_R501_finish (void)
 {
   ffestc_check_finish_ ();
 }
@@ -5103,7 +5103,7 @@ ffestc_R501_finish ()
    Verify that SAVE is valid here, and flag everything as SAVEd.  */
 
 void
-ffestc_R522 ()
+ffestc_R522 (void)
 {
   ffestc_check_simple_ ();
   if (ffestc_order_blockspec_ () != FFESTC_orderOK_)
@@ -5153,7 +5153,7 @@ ffestc_R522 ()
    Verify that SAVE is valid here, and begin accepting items in the list.  */
 
 void
-ffestc_R522start ()
+ffestc_R522start (void)
 {
   ffestc_check_start_ ();
   if (ffestc_order_blockspec_ () != FFESTC_orderOK_)
@@ -5315,7 +5315,7 @@ ffestc_R522item_cblock (ffelexToken name)
    Just wrap up any local activities.  */
 
 void
-ffestc_R522finish ()
+ffestc_R522finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -5487,7 +5487,7 @@ ffestc_R524_item (ffelexToken name, ffesttDimList dims)
    Just wrap up any local activities.  */
 
 void
-ffestc_R524_finish ()
+ffestc_R524_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -5503,7 +5503,7 @@ ffestc_R524_finish ()
    Verify that DATA is valid here, and begin accepting items in the list.  */
 
 void
-ffestc_R528_start ()
+ffestc_R528_start (void)
 {
   ffestcOrder_ order;
 
@@ -5561,7 +5561,7 @@ ffestc_R528_item_object (ffebld expr, ffelexToken expr_token UNUSED)
    No more objects, gonna specify values for the list of objects now.  */
 
 void
-ffestc_R528_item_startvals ()
+ffestc_R528_item_startvals (void)
 {
   ffestc_check_item_startvals_ ();
   if (!ffestc_ok_)
@@ -5644,7 +5644,7 @@ ffestc_R528_item_endvals (ffelexToken t)
    Just wrap up any local activities.  */
 
 void
-ffestc_R528_finish ()
+ffestc_R528_finish (void)
 {
   ffestc_check_finish_ ();
 
@@ -5662,7 +5662,7 @@ ffestc_R528_finish ()
    list.  */
 
 void
-ffestc_R537_start ()
+ffestc_R537_start (void)
 {
   ffestc_check_start_ ();
   if (ffestc_order_parameter_ () != FFESTC_orderOK_)
@@ -5745,7 +5745,7 @@ ffestc_R537_item (ffebld dest, ffelexToken dest_token, ffebld source,
    Just wrap up any local activities.  */
 
 void
-ffestc_R537_finish ()
+ffestc_R537_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -5761,7 +5761,7 @@ ffestc_R537_finish ()
    Verify that the IMPLICIT NONE statement is ok here and implement.  */
 
 void
-ffestc_R539 ()
+ffestc_R539 (void)
 {
   ffestc_check_simple_ ();
   if (ffestc_order_implicitnone_ () != FFESTC_orderOK_)
@@ -5780,7 +5780,7 @@ ffestc_R539 ()
    Verify that the IMPLICIT statement is ok here and implement.	 */
 
 void
-ffestc_R539start ()
+ffestc_R539start (void)
 {
   ffestc_check_start_ ();
   if (ffestc_order_implicit_ () != FFESTC_orderOK_)
@@ -5835,7 +5835,7 @@ ffestc_R539item (ffestpType type, ffebld kind, ffelexToken kindt,
    Finish up any local activities.  */
 
 void
-ffestc_R539finish ()
+ffestc_R539finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -5852,7 +5852,7 @@ ffestc_R539finish ()
    list.  */
 
 void
-ffestc_R542_start ()
+ffestc_R542_start (void)
 {
   ffestc_check_start_ ();
   if (ffestc_order_progspec_ () != FFESTC_orderOK_)
@@ -6017,7 +6017,7 @@ ffestc_R542_item_nitem (ffelexToken name)
    Just wrap up any local activities.  */
 
 void
-ffestc_R542_finish ()
+ffestc_R542_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -6036,7 +6036,7 @@ ffestc_R542_finish ()
    list.  */
 
 void
-ffestc_R544_start ()
+ffestc_R544_start (void)
 {
   ffestc_check_start_ ();
   if (ffestc_order_blockspec_ () != FFESTC_orderOK_)
@@ -6163,7 +6163,7 @@ ffestc_R544_equiv_ (ffebld expr, ffelexToken t)
    Just wrap up any local activities.  */
 
 void
-ffestc_R544_finish ()
+ffestc_R544_finish (void)
 {
   ffestc_check_finish_ ();
 }
@@ -6175,7 +6175,7 @@ ffestc_R544_finish ()
    Verify that COMMON is valid here, and begin accepting items in the list.  */
 
 void
-ffestc_R547_start ()
+ffestc_R547_start (void)
 {
   ffestc_check_start_ ();
   if (ffestc_order_blockspec_ () != FFESTC_orderOK_)
@@ -6444,7 +6444,7 @@ ffestc_R547_item_cblock (ffelexToken name)
    Just wrap up any local activities.  */
 
 void
-ffestc_R547_finish ()
+ffestc_R547_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -6875,7 +6875,7 @@ ffestc_R810 (ffesttCaseList cases, ffelexToken name)
 	       && ((ffeinfo_basictype (ffebld_info (caseobj->expr1))
 		    != s->type)
 		   || ((ffeinfo_kindtype (ffebld_info (caseobj->expr1))
-		       != s->kindtype) 
+		       != s->kindtype)
 		       && (ffeinfo_kindtype (ffebld_info (caseobj->expr1)) != FFEINFO_kindtypeINTEGER1 ))
 	      || ((caseobj->range)
 		  && (caseobj->expr2 != NULL)
@@ -7788,7 +7788,7 @@ ffestc_R840 (ffebld expr, ffelexToken expr_token UNUSED,
    ffestc_R841();  */
 
 void
-ffestc_R841 ()
+ffestc_R841 (void)
 {
   ffestc_check_simple_ ();
 
@@ -7860,7 +7860,7 @@ ffestc_R843 (ffebld expr, ffelexToken expr_token UNUSED)
    Make sure an OPEN is valid in the current context, and implement it.	 */
 
 void
-ffestc_R904 ()
+ffestc_R904 (void)
 {
   int i;
   int expect_file;
@@ -8105,7 +8105,7 @@ ffestc_R904 ()
    Make sure a CLOSE is valid in the current context, and implement it.	 */
 
 void
-ffestc_R907 ()
+ffestc_R907 (void)
 {
   static const char *const status_strs[] =
   {
@@ -8497,7 +8497,7 @@ ffestc_R909_item (ffebld expr, ffelexToken expr_token)
    Just wrap up any local activities.  */
 
 void
-ffestc_R909_finish ()
+ffestc_R909_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -8518,7 +8518,7 @@ ffestc_R909_finish ()
    list.  */
 
 void
-ffestc_R910_start ()
+ffestc_R910_start (void)
 {
   ffestvUnit unit;
   ffestvFormat format;
@@ -8737,7 +8737,7 @@ ffestc_R910_item (ffebld expr, ffelexToken expr_token)
    Just wrap up any local activities.  */
 
 void
-ffestc_R910_finish ()
+ffestc_R910_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -8758,7 +8758,7 @@ ffestc_R910_finish ()
    list.  */
 
 void
-ffestc_R911_start ()
+ffestc_R911_start (void)
 {
   ffestvFormat format;
 
@@ -8822,7 +8822,7 @@ ffestc_R911_item (ffebld expr, ffelexToken expr_token)
    Just wrap up any local activities.  */
 
 void
-ffestc_R911_finish ()
+ffestc_R911_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -8842,7 +8842,7 @@ ffestc_R911_finish ()
    Make sure a BACKSPACE is valid in the current context, and implement it.  */
 
 void
-ffestc_R919 ()
+ffestc_R919 (void)
 {
   ffestc_check_simple_ ();
   if (ffestc_order_actionif_ () != FFESTC_orderOK_)
@@ -8867,7 +8867,7 @@ ffestc_R919 ()
    Make sure a ENDFILE is valid in the current context, and implement it.  */
 
 void
-ffestc_R920 ()
+ffestc_R920 (void)
 {
   ffestc_check_simple_ ();
   if (ffestc_order_actionif_ () != FFESTC_orderOK_)
@@ -8892,7 +8892,7 @@ ffestc_R920 ()
    Make sure a REWIND is valid in the current context, and implement it.  */
 
 void
-ffestc_R921 ()
+ffestc_R921 (void)
 {
   ffestc_check_simple_ ();
   if (ffestc_order_actionif_ () != FFESTC_orderOK_)
@@ -8917,7 +8917,7 @@ ffestc_R921 ()
    Make sure an INQUIRE is valid in the current context, and implement it.  */
 
 void
-ffestc_R923A ()
+ffestc_R923A (void)
 {
   bool by_file;
   bool by_unit;
@@ -8994,7 +8994,7 @@ ffestc_R923A ()
    list.  */
 
 void
-ffestc_R923B_start ()
+ffestc_R923B_start (void)
 {
   ffestc_check_start_ ();
   if (ffestc_order_actionif_ () != FFESTC_orderOK_)
@@ -9032,7 +9032,7 @@ ffestc_R923B_item (ffebld expr, ffelexToken expr_token UNUSED)
    Just wrap up any local activities.  */
 
 void
-ffestc_R923B_finish ()
+ffestc_R923B_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -9254,7 +9254,7 @@ ffestc_R1112 (ffelexToken name)
    Verify that EXTERNAL is valid here, and begin accepting items in the list.  */
 
 void
-ffestc_R1207_start ()
+ffestc_R1207_start (void)
 {
   ffestc_check_start_ ();
   if (ffestc_order_progspec_ () != FFESTC_orderOK_)
@@ -9328,7 +9328,7 @@ ffestc_R1207_item (ffelexToken name)
    Just wrap up any local activities.  */
 
 void
-ffestc_R1207_finish ()
+ffestc_R1207_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -9344,7 +9344,7 @@ ffestc_R1207_finish ()
    Verify that INTRINSIC is valid here, and begin accepting items in the list.	*/
 
 void
-ffestc_R1208_start ()
+ffestc_R1208_start (void)
 {
   ffestc_check_start_ ();
   if (ffestc_order_progspec_ () != FFESTC_orderOK_)
@@ -9447,7 +9447,7 @@ ffestc_R1208_item (ffelexToken name)
    Just wrap up any local activities.  */
 
 void
-ffestc_R1208_finish ()
+ffestc_R1208_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -10232,7 +10232,7 @@ ffestc_S3P4 (ffebld filename, ffelexToken filename_token UNUSED)
    list.  */
 
 void
-ffestc_V014_start ()
+ffestc_V014_start (void)
 {
   ffestc_check_start_ ();
   if (ffestc_order_progspec_ () != FFESTC_orderOK_)
@@ -10288,7 +10288,7 @@ ffestc_V014_item_cblock (ffelexToken name)
    Just wrap up any local activities.  */
 
 void
-ffestc_V014_finish ()
+ffestc_V014_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -10305,7 +10305,7 @@ ffestc_V014_finish ()
    list.  */
 
 void
-ffestc_V020_start ()
+ffestc_V020_start (void)
 {
   ffestvFormat format;
 
@@ -10369,7 +10369,7 @@ ffestc_V020_item (ffebld expr, ffelexToken expr_token)
    Just wrap up any local activities.  */
 
 void
-ffestc_V020_finish ()
+ffestc_V020_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -10389,7 +10389,7 @@ ffestc_V020_finish ()
    Verify that PARAMETER is valid here, and begin accepting items in the list.	*/
 
 void
-ffestc_V027_start ()
+ffestc_V027_start (void)
 {
   ffestc_check_start_ ();
   if (ffestc_order_parameter_ () != FFESTC_orderOK_)
@@ -10429,7 +10429,7 @@ ffestc_V027_item (ffelexToken dest_token, ffebld source,
    Just wrap up any local activities.  */
 
 void
-ffestc_V027_finish ()
+ffestc_V027_finish (void)
 {
   ffestc_check_finish_ ();
   if (!ffestc_ok_)
@@ -10442,7 +10442,7 @@ ffestc_V027_finish ()
    like the statement for a logical IF are reset.  */
 
 void
-ffestc_any ()
+ffestc_any (void)
 {
   ffestc_check_simple_ ();
 
diff --git a/gcc/f/std.c b/gcc/f/std.c
index d225d1c9..863214e 100644
--- a/gcc/f/std.c
+++ b/gcc/f/std.c
@@ -555,7 +555,7 @@ ffestd_stmt_new_ (ffestdStmtId_ id)
    ffestd_stmt_pass_();	 */
 
 static void
-ffestd_stmt_pass_ ()
+ffestd_stmt_pass_ (void)
 {
   ffestdStmt_ stmt;
   ffestdExprItem_ expr;		/* For traversing lists. */
@@ -1102,7 +1102,7 @@ ffestd_subr_labels_ (bool unexpected)
    ffestd_subr_vxt_();	*/
 
 static void
-ffestd_subr_vxt_ ()
+ffestd_subr_vxt_ (void)
 {
   ffebad_start (FFEBAD_VXT_UNSUPPORTED);
   ffebad_here (0, ffelex_token_where_line (ffesta_tokens[0]),
@@ -1121,7 +1121,7 @@ ffestd_subr_vxt_ ()
    handling them as a single block rather than one statement at a time).  */
 
 void
-ffestd_begin_uses ()
+ffestd_begin_uses (void)
 {
 }
 
@@ -1177,7 +1177,7 @@ ffestd_end_R807 (bool ok UNUSED)
    ffestd_exec_begin();	 */
 
 void
-ffestd_exec_begin ()
+ffestd_exec_begin (void)
 {
   ffecom_exec_transition ();
 
@@ -1209,7 +1209,7 @@ ffestd_exec_begin ()
    ffestd_exec_end();  */
 
 void
-ffestd_exec_end ()
+ffestd_exec_end (void)
 {
   location_t old_loc = input_location;
 
@@ -1251,7 +1251,7 @@ ffestd_exec_end ()
    ffestd_init_3();  */
 
 void
-ffestd_init_3 ()
+ffestd_init_3 (void)
 {
   ffestd_stmt_list_.first = (ffestdStmt_) &ffestd_stmt_list_.first;
   ffestd_stmt_list_.last = (ffestdStmt_) &ffestd_stmt_list_.first;
@@ -1312,7 +1312,7 @@ ffestd_labeldef_useless (ffelab label UNUSED)
    Verify that SAVE is valid here, and flag everything as SAVEd.  */
 
 void
-ffestd_R522 ()
+ffestd_R522 (void)
 {
   ffestd_check_simple_ ();
 }
@@ -1324,7 +1324,7 @@ ffestd_R522 ()
    Verify that SAVE is valid here, and begin accepting items in the list.  */
 
 void
-ffestd_R522start ()
+ffestd_R522start (void)
 {
   ffestd_check_start_ ();
 }
@@ -1360,7 +1360,7 @@ ffestd_R522item_cblock (ffelexToken name UNUSED)
    Just wrap up any local activities.  */
 
 void
-ffestd_R522finish ()
+ffestd_R522finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -1396,7 +1396,7 @@ ffestd_R524_item (ffelexToken name UNUSED, ffesttDimList dims UNUSED)
    Just wrap up any local activities.  */
 
 void
-ffestd_R524_finish ()
+ffestd_R524_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -1408,7 +1408,7 @@ ffestd_R524_finish ()
    Verify that PARAMETER is valid here, and begin accepting items in the list.	*/
 
 void
-ffestd_R537_start ()
+ffestd_R537_start (void)
 {
   ffestd_check_start_ ();
 }
@@ -1433,7 +1433,7 @@ ffestd_R537_item (ffebld dest UNUSED, ffebld source UNUSED)
    Just wrap up any local activities.  */
 
 void
-ffestd_R537_finish ()
+ffestd_R537_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -1445,7 +1445,7 @@ ffestd_R537_finish ()
    Verify that the IMPLICIT NONE statement is ok here and implement.  */
 
 void
-ffestd_R539 ()
+ffestd_R539 (void)
 {
   ffestd_check_simple_ ();
 }
@@ -1457,7 +1457,7 @@ ffestd_R539 ()
    Verify that the IMPLICIT statement is ok here and implement.	 */
 
 void
-ffestd_R539start ()
+ffestd_R539start (void)
 {
   ffestd_check_start_ ();
 }
@@ -1483,7 +1483,7 @@ ffestd_R539item (ffestpType type UNUSED, ffebld kind UNUSED,
    Finish up any local activities.  */
 
 void
-ffestd_R539finish ()
+ffestd_R539finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -1495,7 +1495,7 @@ ffestd_R539finish ()
    Verify that NAMELIST is valid here, and begin accepting items in the list.  */
 
 void
-ffestd_R542_start ()
+ffestd_R542_start (void)
 {
   ffestd_check_start_ ();
 }
@@ -1531,7 +1531,7 @@ ffestd_R542_item_nitem (ffelexToken name UNUSED)
    Just wrap up any local activities.  */
 
 void
-ffestd_R542_finish ()
+ffestd_R542_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -1543,7 +1543,7 @@ ffestd_R542_finish ()
    Verify that COMMON is valid here, and begin accepting items in the list.  */
 
 void
-ffestd_R547_start ()
+ffestd_R547_start (void)
 {
   ffestd_check_start_ ();
 }
@@ -1580,7 +1580,7 @@ ffestd_R547_item_cblock (ffelexToken name UNUSED)
    Just wrap up any local activities.  */
 
 void
-ffestd_R547_finish ()
+ffestd_R547_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -2096,7 +2096,7 @@ ffestd_R843 (ffebld expr)
    Make sure an OPEN is valid in the current context, and implement it.	 */
 
 void
-ffestd_R904 ()
+ffestd_R904 (void)
 {
   ffestdStmt_ stmt;
 
@@ -2151,7 +2151,7 @@ ffestd_R904 ()
    Make sure a CLOSE is valid in the current context, and implement it.	 */
 
 void
-ffestd_R907 ()
+ffestd_R907 (void)
 {
   ffestdStmt_ stmt;
 
@@ -2246,7 +2246,7 @@ ffestd_R909_item (ffebld expr, ffelexToken expr_token)
    Just wrap up any local activities.  */
 
 void
-ffestd_R909_finish ()
+ffestd_R909_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -2323,7 +2323,7 @@ ffestd_R910_item (ffebld expr, ffelexToken expr_token)
    Just wrap up any local activities.  */
 
 void
-ffestd_R910_finish ()
+ffestd_R910_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -2383,7 +2383,7 @@ ffestd_R911_item (ffebld expr, ffelexToken expr_token)
    Just wrap up any local activities.  */
 
 void
-ffestd_R911_finish ()
+ffestd_R911_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -2395,7 +2395,7 @@ ffestd_R911_finish ()
    Make sure a BACKSPACE is valid in the current context, and implement it.  */
 
 void
-ffestd_R919 ()
+ffestd_R919 (void)
 {
   ffestdStmt_ stmt;
 
@@ -2416,7 +2416,7 @@ ffestd_R919 ()
    Make sure a ENDFILE is valid in the current context, and implement it.  */
 
 void
-ffestd_R920 ()
+ffestd_R920 (void)
 {
   ffestdStmt_ stmt;
 
@@ -2437,7 +2437,7 @@ ffestd_R920 ()
    Make sure a REWIND is valid in the current context, and implement it.  */
 
 void
-ffestd_R921 ()
+ffestd_R921 (void)
 {
   ffestdStmt_ stmt;
 
@@ -2506,7 +2506,7 @@ ffestd_R923A (bool by_file)
    list.  */
 
 void
-ffestd_R923B_start ()
+ffestd_R923B_start (void)
 {
   ffestdStmt_ stmt;
 
@@ -2551,7 +2551,7 @@ ffestd_R923B_item (ffebld expr)
    Just wrap up any local activities.  */
 
 void
-ffestd_R923B_finish ()
+ffestd_R923B_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -3168,7 +3168,7 @@ ffestd_R1112 (bool ok UNUSED)
    Verify that EXTERNAL is valid here, and begin accepting items in the list.  */
 
 void
-ffestd_R1207_start ()
+ffestd_R1207_start (void)
 {
   ffestd_check_start_ ();
 }
@@ -3193,7 +3193,7 @@ ffestd_R1207_item (ffelexToken name)
    Just wrap up any local activities.  */
 
 void
-ffestd_R1207_finish ()
+ffestd_R1207_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -3205,7 +3205,7 @@ ffestd_R1207_finish ()
    Verify that INTRINSIC is valid here, and begin accepting items in the list.	*/
 
 void
-ffestd_R1208_start ()
+ffestd_R1208_start (void)
 {
   ffestd_check_start_ ();
 }
@@ -3230,7 +3230,7 @@ ffestd_R1208_item (ffelexToken name)
    Just wrap up any local activities.  */
 
 void
-ffestd_R1208_finish ()
+ffestd_R1208_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -3495,7 +3495,7 @@ ffestd_S3P4 (ffebld filename)
    Verify that VOLATILE is valid here, and begin accepting items in the list.  */
 
 void
-ffestd_V014_start ()
+ffestd_V014_start (void)
 {
   ffestd_check_start_ ();
 }
@@ -3531,7 +3531,7 @@ ffestd_V014_item_cblock (ffelexToken name UNUSED)
    Just wrap up any local activities.  */
 
 void
-ffestd_V014_finish ()
+ffestd_V014_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -3569,7 +3569,7 @@ ffestd_V020_item (ffebld expr UNUSED)
    Just wrap up any local activities.  */
 
 void
-ffestd_V020_finish ()
+ffestd_V020_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -3581,7 +3581,7 @@ ffestd_V020_finish ()
    Verify that PARAMETER is valid here, and begin accepting items in the list.	*/
 
 void
-ffestd_V027_start ()
+ffestd_V027_start (void)
 {
   ffestd_check_start_ ();
   ffestd_subr_vxt_ ();
@@ -3607,7 +3607,7 @@ ffestd_V027_item (ffelexToken dest_token UNUSED, ffebld source UNUSED)
    Just wrap up any local activities.  */
 
 void
-ffestd_V027_finish ()
+ffestd_V027_finish (void)
 {
   ffestd_check_finish_ ();
 }
@@ -3615,7 +3615,7 @@ ffestd_V027_finish ()
 /* Any executable statement.  */
 
 void
-ffestd_any ()
+ffestd_any (void)
 {
   ffestdStmt_ stmt;
 
diff --git a/gcc/f/ste.c b/gcc/f/ste.c
index 66ee92c..53a20d8 100644
--- a/gcc/f/ste.c
+++ b/gcc/f/ste.c
@@ -335,7 +335,7 @@ static void ffeste_subr_beru_ (ffestpBeruStmt *info, ffecomGfrt rt);
       tree exq = (Exp);							      \
       tree lenexq = (Lenexp);						      \
       int need_exq = (! exq);						      \
-      int need_lenexq = (! lenexq); 					      \
+      int need_lenexq = (! lenexq);					      \
       if (need_exq || need_lenexq)					      \
 	{								      \
 	  exq = ffecom_arg_ptr_to_expr ((Spec)->u.expr, &lenexq);	      \
@@ -2368,7 +2368,7 @@ ffeste_do (ffestw block)
    Applies to *only* logical IF, not to IF-THEN.  */
 
 void
-ffeste_end_R807 ()
+ffeste_end_R807 (void)
 {
   ffeste_emit_line_note_ ();
 
@@ -2824,7 +2824,7 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr)
    ending an iterative DO statement, even one that ends at a label.  */
 
 void
-ffeste_R825 ()
+ffeste_R825 (void)
 {
   ffeste_check_simple_ ();
 
@@ -3097,7 +3097,7 @@ ffeste_R840 (ffebld expr, ffelab neg, ffelab zero, ffelab pos)
 /* CONTINUE statement.  */
 
 void
-ffeste_R841 ()
+ffeste_R841 (void)
 {
   ffeste_check_simple_ ();
 
@@ -3638,7 +3638,7 @@ ffeste_R909_item (ffebld expr, ffelexToken expr_token)
 /* READ statement -- end.  */
 
 void
-ffeste_R909_finish ()
+ffeste_R909_finish (void)
 {
   ffeste_check_finish_ ();
 
@@ -3869,7 +3869,7 @@ ffeste_R910_item (ffebld expr, ffelexToken expr_token)
 /* WRITE statement -- end.  */
 
 void
-ffeste_R910_finish ()
+ffeste_R910_finish (void)
 {
   ffeste_check_finish_ ();
 
@@ -3996,7 +3996,7 @@ ffeste_R911_item (ffebld expr, ffelexToken expr_token)
 /* PRINT statement -- end.  */
 
 void
-ffeste_R911_finish ()
+ffeste_R911_finish (void)
 {
   ffeste_check_finish_ ();
 
@@ -4167,7 +4167,7 @@ ffeste_R923B_item (ffebld expr UNUSED)
 /* INQUIRE(IOLENGTH=expr) statement -- end.  */
 
 void
-ffeste_R923B_finish ()
+ffeste_R923B_finish (void)
 {
   ffeste_check_finish_ ();
 }
@@ -4227,14 +4227,14 @@ ffeste_R1001 (ffests s)
 /* END PROGRAM.  */
 
 void
-ffeste_R1103 ()
+ffeste_R1103 (void)
 {
 }
 
 /* END BLOCK DATA.  */
 
 void
-ffeste_R1112 ()
+ffeste_R1112 (void)
 {
 }
 
@@ -4363,14 +4363,14 @@ ffeste_R1212 (ffebld expr)
 /* END FUNCTION.  */
 
 void
-ffeste_R1221 ()
+ffeste_R1221 (void)
 {
 }
 
 /* END SUBROUTINE.  */
 
 void
-ffeste_R1225 ()
+ffeste_R1225 (void)
 {
 }
 
@@ -4456,7 +4456,7 @@ ffeste_V020_item (ffebld expr UNUSED)
 /* TYPE statement -- end.  */
 
 void
-ffeste_V020_finish ()
+ffeste_V020_finish (void)
 {
   ffeste_check_finish_ ();
 }
diff --git a/gcc/f/storag.c b/gcc/f/storag.c
index 60570fc..db33827 100644
--- a/gcc/f/storag.c
+++ b/gcc/f/storag.c
@@ -162,7 +162,7 @@ ffestorag_dump (ffestorag s)
    ffestorag_init_2();	*/
 
 void
-ffestorag_init_2 ()
+ffestorag_init_2 (void)
 {
   ffestorag_list_.first = ffestorag_list_.last
   = (ffestorag) &ffestorag_list_.first;
@@ -431,7 +431,7 @@ ffestorag_new (ffestoragList sl)
 /* Report info on LOCAL non-sym-assoc'ed entities if needed.  */
 
 void
-ffestorag_report ()
+ffestorag_report (void)
 {
   ffestorag s;
 
diff --git a/gcc/f/stt.c b/gcc/f/stt.c
index c48a505..455f4e1 100644
--- a/gcc/f/stt.c
+++ b/gcc/f/stt.c
@@ -1,5 +1,5 @@
 /* stt.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995, 1997 Free Software Foundation, Inc.
+   Copyright (C) 1995, 1997, 2003 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -99,7 +99,7 @@ ffestt_caselist_append (ffesttCaseList list, bool range, ffebld case1,
    The list is allocated out of the scratch pool.  */
 
 ffesttCaseList
-ffestt_caselist_create ()
+ffestt_caselist_create (void)
 {
   ffesttCaseList new;
 
@@ -396,7 +396,7 @@ ffestt_dimlist_as_expr (ffesttDimList list, ffeinfoRank *rank,
    The list is allocated out of the scratch pool.  */
 
 ffesttDimList
-ffestt_dimlist_create ()
+ffestt_dimlist_create (void)
 {
   ffesttDimList new;
 
@@ -521,7 +521,7 @@ ffestt_exprlist_append (ffesttExprList list, ffebld expr, ffelexToken t)
    The list is allocated out of the scratch pool.  */
 
 ffesttExprList
-ffestt_exprlist_create ()
+ffestt_exprlist_create (void)
 {
   ffesttExprList new;
 
@@ -738,7 +738,7 @@ ffestt_implist_append (ffesttImpList list, ffelexToken first, ffelexToken last)
    The list is allocated out of the scratch pool.  */
 
 ffesttImpList
-ffestt_implist_create ()
+ffestt_implist_create (void)
 {
   ffesttImpList new;
 
@@ -825,7 +825,7 @@ ffestt_tokenlist_append (ffesttTokenList tl, ffelexToken t)
    The list is allocated out of the scratch pool.  */
 
 ffesttTokenList
-ffestt_tokenlist_create ()
+ffestt_tokenlist_create (void)
 {
   ffesttTokenList tl;
 
diff --git a/gcc/f/stw.c b/gcc/f/stw.c
index 058b1eb..af68522 100644
--- a/gcc/f/stw.c
+++ b/gcc/f/stw.c
@@ -1,5 +1,5 @@
 /* stw.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995 Free Software Foundation, Inc.
+   Copyright (C) 1995, 2003 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -278,7 +278,7 @@ ffestw_display_state (void)
    ffestw_init_0();  */
 
 void
-ffestw_init_0 ()
+ffestw_init_0 (void)
 {
   ffestw b;
 
diff --git a/gcc/f/symbol.c b/gcc/f/symbol.c
index af45220..addacc8 100644
--- a/gcc/f/symbol.c
+++ b/gcc/f/symbol.c
@@ -178,7 +178,7 @@ ffesymbol_check_token_ (ffelexToken t, char *c)
 /* Kill manifest (g77-picked) names.  */
 
 static void
-ffesymbol_kill_manifest_ ()
+ffesymbol_kill_manifest_ (void)
 {
   if (ffesymbol_token_blank_common_ != NULL)
     ffelex_token_kill (ffesymbol_token_blank_common_);
@@ -822,7 +822,7 @@ ffesymbol_error (ffesymbol s, ffelexToken t)
 }
 
 void
-ffesymbol_init_0 ()
+ffesymbol_init_0 (void)
 {
   ffesymbolAttrs attrs = FFESYMBOL_attrsetNONE;
 
@@ -834,7 +834,7 @@ ffesymbol_init_0 ()
 }
 
 void
-ffesymbol_init_1 ()
+ffesymbol_init_1 (void)
 {
 #if FFESYMBOL_globalCURRENT_ == FFESYMBOL_globalFILE_
   ffesymbol_global_ = ffename_space_new (ffe_pool_file ());
@@ -842,12 +842,12 @@ ffesymbol_init_1 ()
 }
 
 void
-ffesymbol_init_2 ()
+ffesymbol_init_2 (void)
 {
 }
 
 void
-ffesymbol_init_3 ()
+ffesymbol_init_3 (void)
 {
 #if FFESYMBOL_globalCURRENT_ == FFESYMBOL_globalPROGUNIT_
   ffesymbol_global_ = ffename_space_new (ffe_pool_program_unit ());
@@ -856,7 +856,7 @@ ffesymbol_init_3 ()
 }
 
 void
-ffesymbol_init_4 ()
+ffesymbol_init_4 (void)
 {
   ffesymbol_sfunc_ = ffename_space_new (ffe_pool_program_unit ());
 }
@@ -1060,7 +1060,7 @@ ffesymbol_retract (bool retract)
 /* Return retractable flag.  */
 
 bool
-ffesymbol_retractable ()
+ffesymbol_retractable (void)
 {
   return ffesymbol_retractable_;
 }
@@ -1134,12 +1134,12 @@ ffesymbol_state_string (ffesymbolState state)
 }
 
 void
-ffesymbol_terminate_0 ()
+ffesymbol_terminate_0 (void)
 {
 }
 
 void
-ffesymbol_terminate_1 ()
+ffesymbol_terminate_1 (void)
 {
 #if FFESYMBOL_globalCURRENT_ == FFESYMBOL_globalFILE_
   ffename_space_drive_symbol (ffesymbol_global_, ffesymbol_unhook_);
@@ -1151,7 +1151,7 @@ ffesymbol_terminate_1 ()
 }
 
 void
-ffesymbol_terminate_2 ()
+ffesymbol_terminate_2 (void)
 {
 #if FFESYMBOL_globalCURRENT_ == FFESYMBOL_globalPROGUNIT_
   ffesymbol_kill_manifest_ ();
@@ -1159,7 +1159,7 @@ ffesymbol_terminate_2 ()
 }
 
 void
-ffesymbol_terminate_3 ()
+ffesymbol_terminate_3 (void)
 {
 #if FFESYMBOL_globalCURRENT_ == FFESYMBOL_globalPROGUNIT_
   ffename_space_drive_symbol (ffesymbol_global_, ffesymbol_unhook_);
@@ -1174,7 +1174,7 @@ ffesymbol_terminate_3 ()
 }
 
 void
-ffesymbol_terminate_4 ()
+ffesymbol_terminate_4 (void)
 {
   ffename_space_drive_symbol (ffesymbol_sfunc_, ffesymbol_unhook_);
   ffename_space_kill (ffesymbol_sfunc_);
diff --git a/gcc/f/top.c b/gcc/f/top.c
index 81d6c68..ce39dd0 100644
--- a/gcc/f/top.c
+++ b/gcc/f/top.c
@@ -1,5 +1,6 @@
 /* top.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995, 1996, 1997, 1999, 2001 Free Software Foundation, Inc.
+   Copyright (C) 1995, 1996, 1997, 1999, 2001, 2003
+   Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -629,7 +630,7 @@ ffe_file (ffewhereFile wf, FILE *f)
    Performs per-image invocation.  */
 
 void
-ffe_init_0 ()
+ffe_init_0 (void)
 {
   ++ffe_count_0;
   ffe_in_0 = TRUE;
@@ -664,7 +665,7 @@ ffe_init_0 ()
    Performs per-source-file invocation (not including INCLUDEd files).	*/
 
 void
-ffe_init_1 ()
+ffe_init_1 (void)
 {
   ++ffe_count_1;
   ffe_in_1 = TRUE;
@@ -704,7 +705,7 @@ ffe_init_1 ()
    Performs per-program-unit invocation.  */
 
 void
-ffe_init_2 ()
+ffe_init_2 (void)
 {
   ++ffe_count_2;
   ffe_in_2 = TRUE;
@@ -748,7 +749,7 @@ ffe_init_2 ()
    of inits, from 0-3, breaks here; level 4 must be invoked independently).  */
 
 void
-ffe_init_3 ()
+ffe_init_3 (void)
 {
   ++ffe_count_3;
   ffe_in_3 = TRUE;
@@ -784,7 +785,7 @@ ffe_init_3 ()
    ffe_init_4();  */
 
 void
-ffe_init_4 ()
+ffe_init_4 (void)
 {
   ++ffe_count_4;
   ffe_in_4 = TRUE;
@@ -817,7 +818,7 @@ ffe_init_4 ()
    ffe_terminate_0();  */
 
 void
-ffe_terminate_0 ()
+ffe_terminate_0 (void)
 {
   ffe_count_1 = 0;
   ffe_in_0 = FALSE;
@@ -850,7 +851,7 @@ ffe_terminate_0 ()
    ffe_terminate_1();  */
 
 void
-ffe_terminate_1 ()
+ffe_terminate_1 (void)
 {
   ffe_count_2 = 0;
   ffe_in_1 = FALSE;
@@ -889,7 +890,7 @@ ffe_terminate_1 ()
    ffe_terminate_2();  */
 
 void
-ffe_terminate_2 ()
+ffe_terminate_2 (void)
 {
   ffe_count_3 = 0;
   ffe_in_2 = FALSE;
@@ -928,7 +929,7 @@ ffe_terminate_2 ()
    ffe_terminate_3();  */
 
 void
-ffe_terminate_3 ()
+ffe_terminate_3 (void)
 {
   ffe_count_4 = 0;
   ffe_in_3 = FALSE;
@@ -965,7 +966,7 @@ ffe_terminate_3 ()
    ffe_terminate_4();  */
 
 void
-ffe_terminate_4 ()
+ffe_terminate_4 (void)
 {
   ffe_in_4 = FALSE;
 
diff --git a/gcc/f/where.c b/gcc/f/where.c
index b16f965..b409a46 100644
--- a/gcc/f/where.c
+++ b/gcc/f/where.c
@@ -1,5 +1,5 @@
 /* where.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995, 2002 Free Software Foundation, Inc.
+   Copyright (C) 1995, 2002, 2003 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -161,7 +161,7 @@ ffewhere_file_set (ffewhereFile wf, bool have_num, ffewhereLineNumber ln)
 /* Do initializations.  */
 
 void
-ffewhere_init_1 ()
+ffewhere_init_1 (void)
 {
   ffewhere_root_line_.first = ffewhere_root_line_.last
   = (ffewhereLine) &ffewhere_root_line_.first;