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