























































































































 


































































































































































 






























































































































































































 





















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































subroutine TestFortranCrayPointers_sub(pointers, n)
  implicit none
  
  
  
  integer dummy
  pointer (pdummy, dummy)
  integer, parameter :: pk = kind(pdummy)
  
  integer*8 p
  
  
  integer, parameter :: compare_sizes(1+abs(pk-kind(p))) = [0]
  
  
  integer(pk) pointers(3)
  
  
  integer n
  
  
  

  
  
  
  
  REAL*8 a(n,n), b(n,n), c(n,n)
  pointer (pa, a)
  pointer (pb, b)
  pointer (pc, c)
  
  
  integer i, j, k
  
  
  pa = pointers(1)
  pb = pointers(2)
  pc = pointers(3)
  
  
  do i = 1, n
     do j = 1, n
        a(i,j) = 0
        do k = 1, n
           a(i,j) = a(i,j) + b(i,k) * c(k,j)
        end do
     end do
  end do
  
end subroutine TestFortranCrayPointers_sub
