[Bug fortran/15966] [4.0 Only] ICE and segmentation fault on internal write

[paulthomas2 at wanadoo dot fr]

------- Additional Comments From paulthomas2 at wanadoo dot fr  2005-07-12 
05:44 -------
(In reply to comment #19)
> Fixed in 4.0.2 and above.

Strictly speaking, pr15966 is fixed.  However, writing to array internal files
is still broken because no record length (aka character length) is being
transmitted.  This is a bug that comes up in a number of NIST tests (eg.
fm909.for tests 6, 7, 8, 10 & 22, 23, 25, 26.).

Jerry DeLisle and I are onto it.

With:

      implicit none
      integer         :: i(10),j
      character(12)  :: r(12)
      i = (/(j,j=1,10)/)
      write(r,'(5(2x,i4/)/5(3x,i6/))') i
      write(6,'(a12)') r
      end

Intel and g95 do this

[EMAIL PROTECTED] mytests]# ./a.out
     1
     2
     3
     4
     5
             
        6
        7
        8
        9
       10

whilst gfortran does.... well, something else

[EMAIL PROTECTED] mytests]# ./a.out
     1
2      3
  4      5
        6
      7
    8
  9        1
0
             


-- 


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