------- Comment #1 from pault at gcc dot gnu dot org 2006-10-23 15:54 -------
program gfbread
character(len=256), dimension(3) :: block_data = (/' 1 2 3',' 4 5 6',' 7 8
9'/)
real(kind=8), dimension(3,3) :: tmp_box
read(block_data,'(3(3f2.0/))',iostat=iostat)((tmp_box(i,j),j=1,3),i=1,3)
write(*,'(3F10.5)') ((tmp_box(i,j),j=1,3),i=1,3)
end program gfbread
works fine - the only difference in the code is the io call, so I would guess
that something is awry with list_read.c
Any ideas, Jerry?
Paul
--
pault at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |jvdelisle at gcc dot gnu dot
| |org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29563
