re PR fortran/60810 (list directed io from array results in end of file)

2014-04-28  Jerry DeLisle  <jvdelisle@gcc.gnu>

	PR libfortran/60810
	* gfortran.dg/arrayio_13.f90: New test.

From-SVN: r209888

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b2f07c669c437abb7770132c65deaa16567d0452..b5a66cec7e9c645430057af6c547edee7bdb0fc1 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2014-04-28  Jerry DeLisle  <jvdelisle@gcc.gnu>
+
+       PR libfortran/60810
+       * gfortran.dg/arrayio_13.f90: New test.
+
 2014-04-28  Martin Jambor  <mjambor@suse.cz>
 
         * 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 (file)
index 0000000..92a856b
--- /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