diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-12-21 20:14:39 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-12-21 20:14:39 +0000 |
| commit | 5298c37aa1fc07e2db9507b94b806034b0b70063 (patch) | |
| tree | 80c9e04c1c244da3833437f71d8e0d78ad415b60 /gcc | |
| parent | 2c122b5cc01648af54c0a51d9cb5fa0c74377826 (diff) | |
| download | gcc-5298c37aa1fc07e2db9507b94b806034b0b70063.tar.gz | |
2009-12-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/PR42422
* gfortran.dg/list_read_10.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155378 138bc75d-0d04-0410-961f-82ee72b054a4
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 462eee1ee26..93e98d3ba74 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 00000000000..1ad3304d50c --- /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 |