From 2e96d91570637f9a118699798c6b496cb3c08a8a Mon Sep 17 00:00:00 2001
From: Pearu Peterson <pearu.peterson@gmail.com>
Date: Thu, 24 Mar 2011 22:07:43 +0200
Subject: BUG: fixing selected_real_kind for PowerPC

---
 numpy/f2py/crackfortran.py | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/numpy/f2py/crackfortran.py b/numpy/f2py/crackfortran.py
index aa4c3bc0a..ad5f273e2 100755
--- a/numpy/f2py/crackfortran.py
+++ b/numpy/f2py/crackfortran.py
@@ -13,7 +13,7 @@ $Date: 2005/09/27 07:13:49 $
 Pearu Peterson
 """
 __version__ = "$Revision: 1.177 $"[10:-1]
-
+import platform
 import __version__
 f2py_version = __version__.version
 
@@ -1972,7 +1972,12 @@ def _selected_real_kind_func(p,r=0,radix=0):
     #XXX: This should be processor dependent
     if p<7: return 4
     if p<16: return 8
-    if p<19: return 10
+    if platform.machine().lower().startswith('power'):
+        if p<=20:
+            return 16
+    else:
+        if p<19:
+            return 10
     return -1
 
 def get_parameters(vars, global_params={}):
-- 
cgit v1.2.1