From 78e36824107c5852df78560d7611c84d28fe9712 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Mon, 21 Dec 2009 20:14:39 +0000 Subject: [PATCH] PR libfortran/PR42422 2009-12-21 Thomas Koenig PR libfortran/PR42422 * gfortran.dg/list_read_10.f90: New test. From-SVN: r155378 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/list_read_10.f90 | 14 ++++++++++++++ 2 files changed, 19 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/list_read_10.f90 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 + + PR libfortran/PR42422 + * gfortran.dg/list_read_10.f90: New test. + 2009-12-19 Dodji Seketeli 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