[Bug libfortran/25139] "Invalid argument" error on I/O

[jb at gcc dot gnu dot org]

------- Comment #4 from jb at gcc dot gnu dot org  2005-11-29 18:37 -------
It doesn't have anything to do with array transfers. The following test program
is equivalent to the one in #3, but uses the scalar transfer_integer instead of
transfer_array:

program test3
  integer dat(5)
  dat = (/ 1, 2, 3, 4, 5 /)
  write(11)  dat(1), dat(2), dat(3), dat(4), dat(5), &
       dat(1), dat(2), dat(3), dat(4), dat(5), &
       dat(1), dat(2), dat(3), dat(4), dat(5), &
       dat(1), dat(2), dat(3), dat(4), dat(5)
  rewind 11
  write(11) dat(1), dat(2), dat(3), dat(4), dat(5)
  read(11,end=1008) dat(1), dat(2), dat(3), dat(4), dat(5)
1008 continue
  backspace 11
  write(11)   dat(1), dat(2), dat(3), dat(4), dat(5)
  read(11,end=1011)  dat(1), dat(2), dat(3), dat(4), dat(5)
1011 continue
  backspace 11
  backspace 11
end program test3

Depending on whether the two lines after 1008 continue are commented or not, it
shows the same errors as the ones in #3.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25139