------- 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
