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