From 7a351bad462bb9c80cf85668b6da45de18963c00 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Wed, 23 Dec 2009 09:45:04 +0000 Subject: [PATCH] PR libfortran/PR42422 2009-12-23 Thomas Koenig PR libfortran/PR42422 * gfortran.dg/list_read_10.f90: New test. From-SVN: r155425 --- 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 787834528210..54befe2e7fbc 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-12-23 Thomas Koenig + + PR libfortran/PR42422 + * gfortran.dg/list_read_10.f90: New test. + 2009-11-23 Uros Bizjak PR target/42113 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 000000000000..1ad3304d50c6 --- /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 -- 2.47.2