From 32a360864ed9b528a6dc5c3acda61221ec2aaeb7 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 29 Apr 2014 03:13:34 +0000 Subject: [PATCH] re PR fortran/60810 (list directed io from array results in end of file) 2014-04-28 Jerry DeLisle PR libfortran/60810 * gfortran.dg/arrayio_13.f90: New test. From-SVN: r209888 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/arrayio_13.f90 | 14 ++++++++++++++ 2 files changed, 19 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/arrayio_13.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b2f07c669c43..b5a66cec7e9c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2014-04-28 Jerry DeLisle + + PR libfortran/60810 + * gfortran.dg/arrayio_13.f90: New test. + 2014-04-28 Martin Jambor * gcc.dg/tree-ssa/sra-14.c: New test. diff --git a/gcc/testsuite/gfortran.dg/arrayio_13.f90 b/gcc/testsuite/gfortran.dg/arrayio_13.f90 new file mode 100644 index 000000000000..92a856bc869d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/arrayio_13.f90 @@ -0,0 +1,14 @@ +! { dg-do run } +! PR60810 Bogus end-of-file +program readstrlist + character(len=80), dimension(2) :: ver + integer :: a, b, c + a = 1 + b = 2 + c = 3 + ver(1) = '285 383' + ver(2) = '985' + read( ver, *) a, b, c + if (a /= 285 .or. b /= 383 .or. c /= 985) call abort + !write ( *, *) a, b, c +end -- 2.47.3