diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index a44948f724f..08537f6765e 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,5 +1,8 @@
 2003-05-01  Nathan Sidwell  <nathan@codesourcery.com>
 
+	* lex.c (ffelex_file_pop_): Rename parameter from input_filename.
+	(ffelex_file_push_): Likewise.
+	
 	* ste.c (struct gbe_block): Rename field from input_filename.
 	(ffeste_start_block_, ffeste_start_stmt_): Likewise.
 
diff --git a/gcc/f/lex.c b/gcc/f/lex.c
index 6d065ddd052..3e8465d76c4 100644
--- a/gcc/f/lex.c
+++ b/gcc/f/lex.c
@@ -788,7 +788,7 @@ ffelex_cfelex_ (ffelexToken *xtoken, FILE *finput, int c)
 }
 
 static void
-ffelex_file_pop_ (const char *input_filename)
+ffelex_file_pop_ (const char *filename)
 {
   if (input_file_stack->next)
     {
@@ -804,27 +804,27 @@ ffelex_file_pop_ (const char *input_filename)
   /* Now that we've pushed or popped the input stack,
      update the name in the top element.  */
   if (input_file_stack)
-    input_file_stack->name = input_filename;
+    input_file_stack->name = filename;
 }
 
 static void
-ffelex_file_push_ (int old_lineno, const char *input_filename)
+ffelex_file_push_ (int old_lineno, const char *filename)
 {
   struct file_stack *p
     = (struct file_stack *) xmalloc (sizeof (struct file_stack));
 
   input_file_stack->line = old_lineno;
   p->next = input_file_stack;
-  p->name = input_filename;
+  p->name = filename;
   input_file_stack = p;
   input_file_stack_tick++;
 
-  (*debug_hooks->start_source_file) (0, input_filename);
+  (*debug_hooks->start_source_file) (0, filename);
 
   /* Now that we've pushed or popped the input stack,
      update the name in the top element.  */
   if (input_file_stack)
-    input_file_stack->name = input_filename;
+    input_file_stack->name = filename;
 }
 
 /* Prepare to finish a statement-in-progress by sending the current