------- Additional Comments From bdavis at gcc dot gnu dot org 2004-11-27 15:33 ------- here's a shorter test case:
program rinput implicit double precision(a-h,o-z) character *8 a,b open(unit=7) write(7,*)'aaaaaaa123.456' write(7,*)'bbbbbbb-123.456' write(7,*) rewind(7) 610 format(a8,f10.5) read (7,610) a,cafin ,b,angmom print*, a,cafin ,b,angmom stop end -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18398