home *** CD-ROM | disk | FTP | other *** search
- Newsgroups: comp.lang.fortran
- Path: sparky!uunet!munnari.oz.au!bruce.cs.monash.edu.au!monu6!giaeb!simon
- From: simon@giaec.cc.monash.edu.au (simon shields)
- Subject: adj arrays
- Message-ID: <simon.712297732@giaeb>
- Keywords: hp720,adjustable arrays
- Sender: news@monu6.cc.monash.edu.au (Usenet system)
- Organization: Monash University, Melb., Australia.
- Date: Tue, 28 Jul 1992 04:28:52 GMT
- Lines: 53
-
-
- More on problems with adjustable arrays.
- I am using
- HP-UX giaec A.08.07 A 9000/720 2001133857
- and have been having trouble implementing adjustable arrays using f77
- compiler.
- I used the example in the manual as follows
-
- program main
- i=10
- call routine (i)
- end
-
- subroutine routine (i)
- integer dyn_array(i)
- dyn_array(i)=i
- end
-
- It comes up with the error
- eg.f:
- MAIN main:
- routine:
- Declaration error on/above line 9 of eg.f; for dyn_array; adjustable dimension on non-argument
-
- f77: Error. No assembly.
- f77: Errors detected, no link
- so i tried
-
- $STANDARD_LEVEL SYSTEM
- program main
- i=10
- call routine (i)
- end
-
- subroutine routine (i)
- integer dyn_array(i)
- dyn_array(i)=i
- end
-
- and i get
- eg.f:
- Warning on line 1 of eg.f: unknown inline compiler option
- MAIN main:
- routine:
- Declaration error on/above line 10 of eg.f; for dyn_array; adjustable dimension on non-argument
-
- f77: Error. No assembly.
- f77: Errors detected, no link
-
- Whats going on hp ?
-
- Any help much appreciated.
-
-