diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 4d095a6ddcd..cc614707e0e 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-17  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	* io/list_read.c (list_formatted_read_scalar):  Declare
+	type as volatile to shut up compiler warning.
+
 2008-05-16  Janne Blomqvist  <jb@gcc.gnu.org>
 
 	PR libfortran/25561
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 3837f7ecf2e..1aa84704d8a 100644
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -1724,8 +1724,8 @@ check_type (st_parameter_dt *dtp, bt type, int len)
    greater than one, we copy the data item multiple times.  */
 
 static void
-list_formatted_read_scalar (st_parameter_dt *dtp, bt type, void *p, int kind,
-			    size_t size)
+list_formatted_read_scalar (st_parameter_dt *dtp, volatile bt type, void *p,
+			    int kind, size_t size)
 {
   char c;
   int m;