home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / fortran / 3411 < prev    next >
Encoding:
Internet Message Format  |  1992-09-03  |  1.7 KB
  1. Path: sparky!uunet!olivea!decwrl!deccrl!news.crl.dec.com!pa.dec.com!engage.pko.dec.com!e2big.mko.dec.com!quark.enet.dec.com!lionel
  2. From: lionel@quark.enet.dec.com (Steve Lionel)
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: Help for rs6k passed arrays (old fortran)?
  5. Message-ID: <1992Sep3.194741.23806@e2big.mko.dec.com>
  6. Date: 3 Sep 92 22:54:22 GMT
  7. References: <6556@lhdsy1.lahabra.chevron.com>
  8. Sender: guest@e2big.mko.dec.com (Guest (DECnet))
  9. Organization: Digital Equipment Corporation
  10. Lines: 30
  11.  
  12.  
  13. In article <6556@lhdsy1.lahabra.chevron.com>, jpr@lhdsy1.lahabra.chevron.com 
  14. (John C. Prestridge) writes...
  15. > 
  16. >Excuse me if this question was asked before.
  17. > 
  18. >In some old fortran programs, the array dimension is passed to the subroutine
  19. >with a argument size of 1,   For Example:
  20. >                
  21. > [example omitted]
  22.  
  23. >In many machines, the compilation of such a routine would not give compilation
  24. >errors and/or warnings, but on the rs6000 a warning is given about a CONSTANT
  25. >SUBSCRIPT IS OUT OF BOUNDS for each such occurrence in the code.  In many large
  26. >codes there are very large numbers of such occurrences.  Is there some method
  27. >to tell the compiler that the code is an earlier FORTRAN, so that such 
  28. >warnings would not be generated?    
  29. > 
  30.  
  31. The standard way of expressing this is to declare the upper bound with
  32. an asterisk; this makes it an "assumed size array".  Many compilers
  33. (including Digital's) treat a last dimension of 1 as an implicit assumed
  34. size array for compatibility with many old programs which used this
  35. convention (it was never a part of a FORTRAN standard).
  36.  
  37. Steve Lionel                    lionel@quark.enet.dec.com
  38. SDT Languages Group
  39. Digital Equipment Corporation
  40. 110 Spit Brook Road
  41. Nashua, NH 03062
  42.