Actual source code: test_IRIXf90.F
2: program main
3:
4: Interface
5: Subroutine foo2(iarray,darray)
6: integer, pointer :: iarray(:,:,:,:)
7: double precision, pointer :: darray(:,:)
8: End Subroutine
9: End Interface
10:
11:
12: integer,pointer :: i(:,:,:,:)
13: integer,target :: ii(2:11,13:112,4:13,1000)
15: double precision,pointer :: d(:,:)
16: double precision,target :: dd(4:13,5)
17:
18: i => ii
19: d => dd
20: i(2,13,4,1)=10
22: call foo1(i,d)
23: call foo2(i,d)
24: i(2,13,4,1)=100
26: end