diff options
| author | upstream source tree <ports@midipix.org> | 2015-03-15 20:14:05 -0400 |
|---|---|---|
| committer | upstream source tree <ports@midipix.org> | 2015-03-15 20:14:05 -0400 |
| commit | 554fd8c5195424bdbcabf5de30fdc183aba391bd (patch) | |
| tree | 976dc5ab7fddf506dadce60ae936f43f58787092 /gcc/testsuite/gfortran.dg/list_read_3.f90 | |
| download | cbb-gcc-4.6.4-upstream.tar.bz2 cbb-gcc-4.6.4-upstream.tar.xz | |
obtained gcc-4.6.4.tar.bz2 from upstream website;upstream
verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.
downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.
if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
Diffstat (limited to 'gcc/testsuite/gfortran.dg/list_read_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/list_read_3.f90 | 101 |
1 files changed, 101 insertions, 0 deletions
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 000000000..908139a41 --- /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 |