Conference turris::fortran

I'm seeing the memory leak on Alpha with dec$forrtl v01-05.292, which
is the version of the rtl provided by eco  FORRTLAVE01070.  According
to the information in the CSC's databases, this is the latest eco
available for the fortran rtl.

The command procedure listed below demonstrates the problem.

Now for the part I don't understand.

I have access to another alpha system, running ovms v7.0, which
has v01.05-333 of dec$forrtl.  When I run the procedure on this
system, I do NOT see the memory leak.  So, it appears that it
has been fixed.  What I don't know is from where this version of the
rtl came.  I can't find any mention of this in any of our databases.

Is there an eco for dec$forrtl forthcoming that includes this fix?
If so, any ideas as to when it will be available for delivery
to customers?  If not, can someone tell me what v05.05-333 is
all about?

Thanks,

Jerry

==========================================================================

$create tst_inquire.for
	program tst_inquire
	implicit none
	include '($jpidef)'
	integer*4	i,j,ios,istat,lib$getjpi
	integer*4	initial_pages,pages_left,eighty_percent
	logical		exist
c
	istat = lib$getjpi(jpi$_pagfilcnt,,,initial_pages,,)	
	type *,'Initial pagfilcnt value = ',initial_pages
	eighty_percent = (initial_pages*8)/10
c
	do i=1,300
	do j=1,100
	   inquire(file='tst_inquire.for',exist=exist,iostat=ios)
	   if (ios .ne. 0) then
	    type *,'ios, i,j = ',ios,i,j
	    go to 100
	   endif

	   if (.not. exist) then
	    type *,'File does not exist'
	    type *,'i,j = ',i,j
	    go to 100
	   endif
	end do
	type *,'i = ',i,'   j = ',j
	istat = lib$getjpi(jpi$_pagfilcnt,,,pages_left,,)
	type *,'Remaining pages = ',pages_left
	if (pages_left .lt. eighty_percent) go to 100
	end do
100	continue
	end
$fortran/noop tst_inquire
$link tst_inquire
$run tst_inquire

-333 is the version of the RTL which comes with Digital Fortran V7.1.  It can
be installed separately.  We will have an RTL ECO kit in the next week or
two, but you don't need it.

					Steve

>>      <<< Note 677.3 by QUARK::LIONEL "Free advice is worth every cent" >>>>>

>>-333 is the version of the RTL which comes with Digital Fortran V7.1.  It can
>>be installed separately.  We will have an RTL ECO kit in the next week or
>>two, but you don't need it.

Thanks.  I'll watch for the eco.  I have left word with my customer to
upgrade or wait until the eco is available.  I don't think it's a
hot issue with him, though.

Jerry

You don't need to wait.  Just have the customer install the RTL kit from
the V7.1 kit (on the current SPL CD-ROM.)

				Steve