FIX: Concatenated Output to Binary File Causes Machine Halt (86741)

RESOLUTION

Assign the result of the string concatenation to a temporary variable to avoid the use of concatenation directly in WRITE statements to binary files. Or use commas to separate the output data rather than concatenation.

MORE INFORMATION

The following code can be used to demonstrate the problem.

Sample Code #1

The following code reproduces the problem:

      character*100 aline

      aline = 'a'
      open(1,file='test.dat',form='binary')

      k = 100

      do i=1,10000
        print*, i
        write(1) aline(:k)//'b'
      end do

      end

Sample Code #2

The following code will correct the problem:

      character*100 aline
      character*101 bline

      aline = 'a'
      open(1,file='test.dat',form='binary')

      k = 100

      do i=1,10000
        print*, i
        bline = aline(:k)//'b'
        write(1) bline
      end do

      end

Sample Code #3

The following code will also correct the problem:

      character*100 aline

      aline = 'a'
      open(1,file='test.dat',form='binary')

      k = 100

      do i=1,10000
        print*, i
        write(1) aline(:k),'b'
      end do

      end