From e52ea92ca1859203ce3ffd569f777e532cbdc260 Mon Sep 17 00:00:00 2001
From: Stefan van der Walt <stefan@sun.ac.za>
Date: Fri, 20 Apr 2007 12:12:43 +0000
Subject: Fix pointer size for F90 allocatable arrays on 64-bit platform.
 Closes ticket #147.

---
 numpy/f2py/f90mod_rules.py | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'numpy/f2py/f90mod_rules.py')

diff --git a/numpy/f2py/f90mod_rules.py b/numpy/f2py/f90mod_rules.py
index aaedde1b2..ffd432b1d 100644
--- a/numpy/f2py/f90mod_rules.py
+++ b/numpy/f2py/f90mod_rules.py
@@ -24,6 +24,7 @@ outmess=sys.stdout.write
 show=pprint.pprint
 
 from auxfuncs import *
+import numpy as N
 import capi_maps
 import cfuncs
 import rules
@@ -44,7 +45,8 @@ def findf90modules(m):
 fgetdims1 = """\
       external f2pysetdata
       logical ns
-      integer s(*),r,i,j
+      integer r,i,j
+      integer(%d) s(*)
       ns = .FALSE.
       if (allocated(d)) then
          do i=1,r
@@ -56,7 +58,7 @@ fgetdims1 = """\
             deallocate(d)
          end if
       end if
-      if ((.not.allocated(d)).and.(s(1).ge.1)) then"""
+      if ((.not.allocated(d)).and.(s(1).ge.1)) then""" % N.intp().itemsize
 
 fgetdims2="""\
       end if
-- 
cgit v1.2.1