Microsoft KB Archive/48636

From BetaArchive Wiki
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
Knowledge Base


Article ID: 48636

Article Last Modified on 10/23/2003



APPLIES TO

  • Microsoft FORTRAN Compiler 5.0
  • Microsoft FORTRAN Compiler 5.1
  • Microsoft FORTRAN PowerStation 1.0 Standard Edition
  • Microsoft Fortran PowerStation 1.0a for MS-DOS



This article was previously published under Q48636

SUMMARY

When using the DEALLOCATE command the storage space reserved by ALLOCATE is not returned to the system. Yet, the space is free for use inside of the FORTRAN program.

MORE INFORMATION

To clarify the documentation, the memory allocated by the ALLOCATE instruction is held by the program until the program terminates. The DEALLOCATE instruction frees the memory for use inside the main program. The space is not returned to MS-DOS.

If you must have the memory deallocate back to MS-DOS, you can spawn to a child process where you ALLOCATE and DEALLOCATE. When the child process terminates, the memory that was claimed by the FORTRAN child process will be returned to MS-DOS.

The following code demonstrates this process:

Sample Code

C
C Main file.
C
      interface to integer*2 function spawnlp
     + [C,VARYING] (mode)
      integer*2 mode
      end
C
      integer*2 spawnlp
C
      I=spawnlp(0,loc('child.exe'C),loc('child.exe'C),
     Xint4(0))
      end
C----------------------------------------------------------

C----------------------------------------------------------
C Child process (separate file), called by spawnlp in
C parent.
C
      integer size
      character*1 arr1[allocatable] ()
      parameter (size=20000)
C
      allocate (arr1(size))
      DEALLOCATE (arr1)
      end
C----------------------------------------------------------
                


Additional query words: kbinf nofpsnt 5.00 5.10 1.00

Keywords: KB48636