1! { dg-do run } 2! PR29563 Internal read loses data. 3! Test case submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org> 4! Without patch, values get muddled. 5program pr29563 6 character(len=4), dimension(3)::arraydata = (/'1123',' 456','789 '/) 7 real(kind=8), dimension(3) :: tmp 8 read(arraydata,*,iostat=iostat)tmp 9 if (tmp(1).ne.1123.0) call abort() 10 if (tmp(2).ne.456.0) call abort() 11 if (tmp(3).ne.789.0) call abort() 12end program pr29563