diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3153282dabf1abb6faa9ce134f724dc8014e4aff..092cfe2ee0401046b99e09dbc5788b205860f136 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2004-09-09  Paul Brook  <paul@codesourcery.com>
+
+	* scanner.c (get_file): Add ATTRIBUTE_UNUSED.
+
 2004-09-08  Paul Brook  <paul@codesourcery.com>
 
 	* array.c: Don't include assert.h.
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index a470639c260becf4f6b4a731ce476be568abf36b..f6bff59c5e16a5b09ead8b8b930fcd015c7dab4a 100644
--- a/gcc/fortran/scanner.c
+++ b/gcc/fortran/scanner.c
@@ -801,7 +801,7 @@ load_line (FILE * input, char **pbuf, char *filename, int linenum)
    the file stack.  */
 
 static gfc_file *
-get_file (char *name, enum lc_reason reason)
+get_file (char *name, enum lc_reason reason ATTRIBUTE_UNUSED)
 {
   gfc_file *f;