














































c
c
c
c
c
c
c
c
c










































































 


































































































































































 





























































































































































































 



















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                






































c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
      subroutine TestFpointerNULL_Callee (null_scalar, scalar,
     &                                    null_array, array, lsh)

      implicit none

      integer lsh(2)
      INTEGER*4 null_scalar, scalar
      REAL*8 null_array(lsh(1), lsh(2)), array(lsh(1), lsh(2))

      integer i, j


c

      scalar = 42

      do j = 1, lsh(2)
        do i = 1, lsh(1)
   
          array(i, j) = 42

        end do
      end do

c
c
c

      end
