MAINT: Eliminate some calls to `eval`

* The instance in `_internal` is parsing tuples and integers, so `ast.literal_eval` is just fine
* The instance in `crack_fortran` is just trying to lookup a function name dynamically
* The instance in `f90mod_rules` is looking at the result of `capi_maps.getarrdims(...)['rank']`, which is always a string representation of an integer

The f2py code is still littered with `eval`, but the remaining cases were harder to reason about.

2 files changed, 7 insertions, 6 deletions

diff --git a/numpy/f2py/crackfortran.py b/numpy/f2py/crackfortran.py
index 910120e00..31e01242e 100755
--- a/numpy/f2py/crackfortran.py
+++ b/numpy/f2py/crackfortran.py
@@ -3113,11 +3113,12 @@ def true_intent_list(var):
     ret = []
     for intent in lst:
         try:
-            c = eval('isintent_%s(var)' % intent)
-        except NameError:
-            c = 0
-        if c:
-            ret.append(intent)
+            f = globals()['isintent_%s' % intent]
+        except KeyError:
+            c = False
+        else:
+            if f(var):
+                ret.append(intent)
     return ret
 
 
diff --git a/numpy/f2py/f90mod_rules.py b/numpy/f2py/f90mod_rules.py
index ad96591c0..f4f1bf1a9 100644
--- a/numpy/f2py/f90mod_rules.py
+++ b/numpy/f2py/f90mod_rules.py
@@ -178,7 +178,7 @@ def buildhooks(pymod):
                      (m['name'], undo_rmbadname1(n)))
                 fadd('integer flag\n')
                 fhooks[0] = fhooks[0] + fgetdims1
-                dms = eval('range(1,%s+1)' % (dm['rank']))
+                dms = range(1, int(dm['rank']) + 1)
                 fadd(' allocate(d(%s))\n' %
                      (','.join(['s(%s)' % i for i in dms])))
                 fhooks[0] = fhooks[0] + use_fgetdims2