2004-12-15 Bud Davis <bdavis9659@comcast.net>

            Steven G. Kargl  <kargls@comcast.net>

        PR fortran/17597
        * io/list_read.c (read_real): do not push back a comma when
        it delimits a real value without a decimal point


2004-12-15  Bud Davis  <bdavis9659@comcast.net>
            Steven G. Kargle  <kargls@comcast.net>

        PR fortran/17597
        * gfortran.dg/list_read_3.f90: New test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92190 138bc75d-0d04-0410-961f-82ee72b054a4

4 files changed, 115 insertions, 1 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 37a59e22412..c5ba7ed06ed 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2004-12-15  Bud Davis  <bdavis9659@comcast.net>
+            Steven G. Kargle  <kargls@comcast.net>
+
+	PR fortran/17597
+	* gfortran.dg/list_read_3.f90: New test.
+
 2004-12-15  Eric Botcazou  <ebotcazou@libertysurf.fr>
 
 	* gcc.dg/ftrapv-2.c: New test.
diff --git a/gcc/testsuite/gfortran.dg/list_read_3.f90 b/gcc/testsuite/gfortran.dg/list_read_3.f90
new file mode 100644
index 00000000000..908139a4194
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/list_read_3.f90
@@ -0,0 +1,101 @@
+! { dg-do run }
+! Program to test reading in a list of integer values into REAL variables.
+! The comma separator was not handled correctly.
+!
+program fg
+
+  character(len=80) buff
+  logical debug
+
+  debug = .FALSE.
+  a = 0
+  b = 0
+  c = 0
+  d = 0
+  write (buff,'(a)') '10,20,30,40'
+  read(buff,*) a, b, c, d
+
+  if (debug) then
+    print*,buff
+    print*,a, b, c, d
+  end if
+
+  if (abs(10. - a) > 1e-5) call abort
+  if (abs(20. - b) > 1e-5) call abort
+  if (abs(30. - c) > 1e-5) call abort
+  if (abs(40. - d) > 1e-5) call abort
+
+  a = 0
+  b = 0
+  c = 0
+  d = 0
+  write (buff,'(a)') '10.,20.,30.,40.'
+  read(buff,*) a, b, c, d
+
+  if (abs(10. - a) > 1e-5) call abort
+  if (abs(20. - b) > 1e-5) call abort
+  if (abs(30. - c) > 1e-5) call abort
+  if (abs(40. - d) > 1e-5) call abort
+
+  if (debug) then
+    print*,buff
+    print*,a, b, c, d
+  end if 
+
+  a = 0
+  b = 0
+  c = 0
+  d = 0
+  write (buff,'(a)') '10.0,20.0,30.0,40.0'
+  read(buff,*) a, b, c, d
+                                                                                
+  if (abs(10. - a) > 1e-5) call abort
+  if (abs(20. - b) > 1e-5) call abort
+  if (abs(30. - c) > 1e-5) call abort
+  if (abs(40. - d) > 1e-5) call abort
+
+  if (debug) then 
+    print*,buff
+    print*,a, b, c, d
+  end if
+                                                                              
+
+  a = 0
+  b = -99 
+  c = 0
+  d = 0
+  write (buff,'(a)') '10.0,,30.0,40.0'
+  read(buff,*) a, b, c, d
+                                                                                
+  if (abs(10. - a) > 1e-5) call abort
+  if (abs(-99. - b) > 1e-5) call abort
+  if (abs(30. - c) > 1e-5) call abort
+  if (abs(40. - d) > 1e-5) call abort
+
+  if (debug) then
+    print*,buff
+    print*,a, b, c, d
+  end if
+                                                                                
+
+   call abc
+
+end program
+
+subroutine abc
+
+  character(len=80) buff
+
+  a = 0
+  b = 0
+  c = 0
+  d = 0
+  write (buff,'(a)') '10,-20,30,-40'
+  read(buff,*) a, b, c, d
+
+  if (abs(10. - a) > 1e-5) call abort
+  if (abs(-20. - b) > 1e-5) call abort
+  if (abs(30. - c) > 1e-5) call abort
+  if (abs(-40. - d) > 1e-5) call abort
+
+end subroutine abc
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 94fd030e648..6b331c6669a 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,10 @@
+2004-12-15  Bud Davis  <bdavis9659@comcast.net>
+            Steven G. Kargl  <kargls@comcast.net>
+
+	PR fortran/17597
+	* io/list_read.c (read_real): do not push back a comma when
+	it delimits a real value without a decimal point
+
 2004-12-14  Steve Ellcey  <sje@cup.hp.com>
 
 	* libgfortran/io/transfer.c (us_read): Use memcpy/memset
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index cee5c74c594..4445de4bb49 100644
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -1043,7 +1043,7 @@ read_real (int length)
 	  goto got_repeat;
 
 	CASE_SEPARATORS:
-          if (c != '\n')
+          if (c != '\n' &&  c != ',')
             unget_char (c);    /* Real number that is just a digit-string.  */
 	  goto done;