BUG: Memory Leak Caused by Formatted Internal WRITE

MORE INFORMATION

In the following sample code, the memory storage area associated with the character string "LLINE" is not released after each internal WRITE. Consequently, additional memory must be allocated for each subsequent internal WRITE utimately causing all physical and virtual memory to be exhausted.

Sample Code to Illustrate Problem and Workaround

! Compile options needed: none

      PROGRAM TEST
      INTEGER I
      CHARACTER LLINE*32
      DO I=1,1000000
          WRITE(LLINE, '(I10,E20.5)') I, REAL(I) ! Memory leak here
!          WRITE(LLINE, *) I, REAL(I) ! Uncomment this line for workaround
      END DO
      END