[Bug libfortran/18398] Formatted I/O problems

[Thomas dot Koenig at online dot de]

------- Additional Comments From Thomas dot Koenig at online dot de  2005-01-05 08:33 -------
A testcase with character variables:

$ gfortran cline
$ cat cline.f
      character*2 c1,c2
      open(7)
      write (7,'(A1)') 'a','b','c'
      rewind(7)
      read(7,'(A2)') c1,c2
      print *,c1,c2
      if (c2 .ne. 'b ') call abort
      end
$ gfortran cline.f
$ ./a.out
 a c
Aborted
$ g77 cline.f
$ ./a.out
 a b

I think this bug can be summed up as:

"Input Format longer than line length causes following record to be skipped".

This bug may be the reason for the I/O related LAPACK failures.
In the driver programs, for example cchkaa.f at line 314, there's the line

      READ( NIN, FMT = '(A72)', END = 140 )ALINE

If the input line in question is shorter than 72 characters, this bug
will cause the next line to be skipped, with - presumably - bad consequences.


-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |Thomas dot Koenig at online
                   |                            |dot de


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