[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | Digital Fortran |
| Notice: | Read notes 1.* for important information |
| Moderator: | QUARK::LIONEL |
|
| Created: | Thu Jun 01 1995 |
| Last Modified: | Fri Jun 06 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 1333 |
| Total number of notes: | 6734 |
1219.0. "open in infinit loop" by MUNICH::WWERNER (When in doubt, do as the INTs do) Wed Mar 12 1997 11:18
A customer 'forced' me to bring the following behaviour to your attention.
Calling open() unsuccessfully in an infinite loop consumes virtual memory.
One needs a few thousand of iterations to see the effect...
OpenVMS VAX V6.2/Fortran V6.4-165 or VAX V6.0 and Fortran V6.5-188
Wolfgang
program tst
integer*4 count
count = 0
c INFO_FILE should not be available...
10 open ( unit=1,
1 name='INFO_FILE:',
1 type='old',
1 organization='indexed',
1 access='keyed',
1 form='unformatted',
1 recordtype='variable',
1 shared,
1 key=(1:35:character),
1 iostat=iostat)
if (iostat .ne. 0) then
count = count+1
type *,count
goto 10
endif
end
| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 1219.1 | | QUARK::LIONEL | Free advice is worth every cent | Wed Mar 12 1997 11:33 | 4 |
| Noted - thanks. It's not deallocating the KEY XABs created for the OPEN in
the case of an error.
Steve
|