From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sat, 17 May 2008 22:24:06 +0000 (+0000)
Subject: list_read.c (list_formatted_read_scalar): Declare type as volatile to shut up compile... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=51407486c46cd3c666f9c4e420368ef9e6992c4a;p=gcc.git

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

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 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;