diff options
| author | Bud Davis <bdavis9659@comcast.net> | 2004-12-15 12:42:39 +0000 |
|---|---|---|
| committer | Bud Davis <bdavis@gcc.gnu.org> | 2004-12-15 12:42:39 +0000 |
| commit | c8c83c1828de1ed0e3a3a2974a4b273be92fa79a (patch) | |
| tree | 4decd83caa2d58072b7195eff91b3b9f7a8e61e2 /gcc | |
| parent | 0aec601466c206f1d9180e928dc694a59e8a1972 (diff) | |
| download | gcc-c8c83c1828de1ed0e3a3a2974a4b273be92fa79a.zip gcc-c8c83c1828de1ed0e3a3a2974a4b273be92fa79a.tar.gz gcc-c8c83c1828de1ed0e3a3a2974a4b273be92fa79a.tar.bz2 | |
re PR libfortran/17597 (list directed read has error)
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.
Co-Authored-By: Steven G. Kargl <kargls@comcast.net>
Co-Authored-By: Steven G. Kargl <kargls@comcast.net>
From-SVN: r92190
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/list_read_3.f90 | 101 |
2 files changed, 107 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 37a59e2..c5ba7ed 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 0000000..908139a --- /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 |