diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2009-12-21 20:14:39 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2009-12-21 20:14:39 +0000 |
| commit | 78e36824107c5852df78560d7611c84d28fe9712 (patch) | |
| tree | 80c9e04c1c244da3833437f71d8e0d78ad415b60 /gcc | |
| parent | afd88205d8a95ccea9ba77fd23f0258025fcc249 (diff) | |
| download | gcc-78e36824107c5852df78560d7611c84d28fe9712.zip gcc-78e36824107c5852df78560d7611c84d28fe9712.tar.gz gcc-78e36824107c5852df78560d7611c84d28fe9712.tar.bz2 | |
PR libfortran/PR42422
2009-12-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/PR42422
* gfortran.dg/list_read_10.f90: New test.
From-SVN: r155378
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/list_read_10.f90 | 14 |
2 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 462eee1..93e98d3 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-12-21 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR libfortran/PR42422 + * gfortran.dg/list_read_10.f90: New test. + 2009-12-19 Dodji Seketeli <dodji@redhat.com> PR c++/42225 diff --git a/gcc/testsuite/gfortran.dg/list_read_10.f90 b/gcc/testsuite/gfortran.dg/list_read_10.f90 new file mode 100644 index 0000000..1ad3304 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/list_read_10.f90 @@ -0,0 +1,14 @@ +! { dg-do run } +! PR 42422 - read with a repeat specifyer following a separator +program main + integer, dimension(10) :: i1, i2 + + i1 = 0 + i2 = (/ 1, 2, 3, 5, 5, 5, 5, 0, 0, 0 /) + open (10,file="pr42422.dat") + write (10,'(A)') ' 1 2 3 4*5 /' + rewind 10 + read (10,*) i1 + if (any(i1 /= i2)) call abort + close (10,status="delete") +end program main |