[Bug fortran/47878] [4.6 Regression] 187.facerec miscompares

[burnus at gcc dot gnu.org]

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

--- Comment #11 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-02-24 14:34:09 UTC ---
Failing test case - though different to the one reported above:

  integer :: a(5)
  open(99,Recl = 40)
  write(99,'(5i3)') 1,2,3
  rewind(99)
  read(99,'(5i3)') a
  ! Expected: 1  2  3  0  0
  print *, a
  end

The program print here "0 2 3 0 0", but "1 2 3 0 0" with gfortran 4.1, g95, NAG
f95, ifort and pathf95.

Test case for the actual issue:

  integer :: a(42)
  open(99, recl=90)
  write(99,'(a)') '3F4344484E5A63728592A0AEBAC6BEC1C4C5C6C6C7C6C' &
                 //'8C7C8C5C6C8C8C9C6C7C8C9C9C9CBCECBCCCE'
  rewind(99)
  Read (Unit = 99, FMT = '(64(Z2.2))') a
  print '(10(i5))', a
  end

The crucial part seems to be to have (a) RECL= and (b) a line which is longer
than 80 characters.