------- Comment #1 from kargl at gcc dot gnu dot org  2010-02-18 18:15 -------
Please attach the files to the PR.  Cut and paste from
bugzilla will mangle the files; particularly, if it is
a CRLF problem.

Also, try removing your iostat usage and see if the 
the operating system generates an error, or use
iomsg.  Something like

      str = 'OK'
      open(unit = 7, action = 'read', file = string)
      do i = 1,mligne
         read(unit = 7, fmt = '(a)', iostat = iosta, iomsg=str) ligne
         print *, trim(str)

On FreeBSD, I get
troutmask:sgk[223] ./z
  name of he file to read
abc
 OK
 OK
 OK
 OK
 OK
 OK
 OK
 OK
 OK
 OK
 OK
 End of file
 number of read lines =           11


-- 


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

Reply via email to