home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / fortran / 2851 < prev    next >
Encoding:
Text File  |  1992-07-27  |  1.4 KB  |  65 lines

  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!munnari.oz.au!bruce.cs.monash.edu.au!monu6!giaeb!simon
  3. From: simon@giaec.cc.monash.edu.au (simon shields)
  4. Subject: adj arrays
  5. Message-ID: <simon.712297732@giaeb>
  6. Keywords: hp720,adjustable arrays
  7. Sender: news@monu6.cc.monash.edu.au (Usenet system)
  8. Organization: Monash University, Melb., Australia.
  9. Date: Tue, 28 Jul 1992 04:28:52 GMT
  10. Lines: 53
  11.  
  12.  
  13. More on problems with adjustable arrays.
  14. I am using 
  15. HP-UX giaec A.08.07 A 9000/720 2001133857
  16. and have been having trouble implementing adjustable arrays using f77
  17. compiler.
  18. I used the example in the manual as follows
  19.  
  20.       program main
  21.       i=10
  22.       call routine (i)
  23.       end
  24.  
  25.       subroutine routine (i)
  26.       integer dyn_array(i)
  27.       dyn_array(i)=i
  28.       end
  29.  
  30. It comes up with the error
  31. eg.f:
  32.    MAIN main:
  33.    routine:
  34. Declaration error on/above line 9 of eg.f;  for dyn_array; adjustable dimension on non-argument
  35.  
  36. f77: Error.  No assembly.
  37. f77: Errors detected, no link
  38.  so i tried 
  39.  
  40. $STANDARD_LEVEL SYSTEM
  41.       program main
  42.       i=10
  43.       call routine (i)
  44.       end
  45.  
  46.       subroutine routine (i)
  47.       integer dyn_array(i)
  48.       dyn_array(i)=i
  49.       end
  50.  
  51. and i get 
  52. eg.f:
  53. Warning on line 1 of eg.f: unknown inline compiler option
  54.    MAIN main:
  55.    routine:
  56. Declaration error on/above line 10 of eg.f;  for dyn_array; adjustable dimension on non-argument
  57.  
  58. f77: Error.  No assembly.
  59. f77: Errors detected, no link
  60.  
  61. Whats going on hp ?
  62.  
  63. Any help much appreciated.
  64.  
  65.