Actual source code: test_IRIXf90.F
1: /*$Id: test_IRIXf90.F,v 1.3 2000/01/11 21:03:59 bsmith Exp $*/
3: program main
4:
5: Interface
6: Subroutine foo2(iarray,darray)
7: integer, pointer :: iarray(:,:,:,:)
8: double precision, pointer :: darray(:,:)
9: End Subroutine
10: End Interface
11:
12:
13: integer,pointer :: i(:,:,:,:)
14: integer,target :: ii(2:11,13:112,4:13,1000)
16: double precision,pointer :: d(:,:)
17: double precision,target :: dd(4:13,5)
18:
19: i => ii
20: d => dd
21: i(2,13,4,1)=10
23: call foo1(i,d)
24: call foo2(i,d)
25: i(2,13,4,1)=100
27: end