BUG: Apply fix for unknown bug in dlamch to slamch too

eric-wieser · eric-wieser · commit 9a77c2a49033 · 2017-03-02T22:24:15.000Z
This bug is mentioned, fixed, but not described, in cadbb5f To be safe, we patch it for the equivalent float32 function.
diff --git a/numpy/linalg/lapack_lite/f2c_config.c b/numpy/linalg/lapack_lite/f2c_config.c
@@ -1782,7 +1782,7 @@ doublereal slamch_(char *cmach)
 doublereal slamc3_(real *a, real *b)
 {
     /* System generated locals */
-    real ret_val;
+    volatile real ret_val;
 
 
 /*
diff --git a/numpy/linalg/lapack_lite/f2c_config.c.patch b/numpy/linalg/lapack_lite/f2c_config.c.patch
@@ -6,4 +6,13 @@
 +    volatile doublereal ret_val;
  
  
+ /*
+@@ -1773,7 +1773,7 @@ L10:
+ doublereal slamc3_(real *a, real *b)
+ {
+     /* System generated locals */
+-    real ret_val;
++    volatile real ret_val;
+ 
+ 
  /*

Original file line number	Diff line number	Diff line change
`@@ -1782,7 +1782,7 @@ doublereal slamch_(char *cmach)`
`1782`	`1782`	`doublereal slamc3_(real a, real b)`
`1783`	`1783`	`{`
`1784`	`1784`	`/* System generated locals */`
`1785`		`- real ret_val;`
	`1785`	`+ volatile real ret_val;`
`1786`	`1786`
`1787`	`1787`
`1788`	`1788`	`/*`