Mercurial > octave-nkf
changeset 16315:62791b1f06cb
* ax_blas_f77_func.m4: Correct expression to generate 2^32.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Fri, 15 Mar 2013 04:17:30 -0400 |
| parents | 0723ea02dcdb |
| children | 49ebf4ad558b |
| files | m4/ax_blas_f77_func.m4 |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/m4/ax_blas_f77_func.m4 Fri Mar 15 04:14:09 2013 -0400 +++ b/m4/ax_blas_f77_func.m4 Fri Mar 15 04:17:30 2013 -0400 @@ -150,9 +150,9 @@ real s,a(1),b(1),sdot a(1) = 1.0 b(1) = 1.0 -c Generate -2**33 + 1, if possible +c Generate -2**32 + 1, if possible n = 2 - n = -4 * (n ** 30) + n = -4 ** (n ** 30) n = n + 1 if (n >= 0) goto 1 c This means we're on 64-bit integers. Check whether the BLAS is, too.