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