list_read.c (list_formatted_read_scalar): Declare type as volatile to shut up compile...

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.

From-SVN: r135480

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 4d095a6ddcdc0f8b9268c6ba6f6f1a2d3a74284c..cc614707e0e8f2359121e6cf8eaaffd13958ef35 100644 (file)
--- 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 3837f7ecf2e5cdae108793d10986c42b55f6cf57..1aa84704d8a6e9a5110a642ee73098f85621a1a6 100644 (file)
--- 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;