OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/29563 (Internal read loses data.) 

2006-10-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/29563
	* gfortran.dg/arrayio_9.f90: New test.

From-SVN: r118060
This commit is contained in:
Jerry DeLisle 2006-10-26 04:41:55 +00:00
parent 807fb853ee
commit ac2de15d44
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2006-10-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/29563
* gfortran.dg/arrayio_9.f90: New test.
2006-10-26 Ben Elliston <bje@au.ibm.com>
* gcc.c-torture/execute/builtins/strlen.c: Do not use strcpy.

10
gcc/testsuite/gfortran.dg/arrayio_9.f90 Normal file
View File

@ -0,0 +1,10 @@
! { dg-do run }
! PR29563 Internal read loses data.
! Test from test case submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
! Without patch, last value in array was being skipped in the read.
program pr29563
character(len=10), dimension(3)::arraydata = (/' 1 2 3',' 4 5 6',' 7 8 9'/)
real(kind=8), dimension(3,3) :: tmp
read(arraydata,'(3(3f2.0/))',iostat=iostat)((tmp(i,j),j=1,3),i=1,3)
if (tmp(3,3)-9.0.gt.0.0000001) print *, "abort"
end program pr29563