Mercurial > octave

comparison acx_blas_f77_func.m4 @ 12069:c87030dce4d9 release-3-2-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix typo in acx_blas_f77_func.m4
author Jaroslav Hajek <highegg@gmail.com>
date Mon, 24 Aug 2009 10:06:52 +0200
parents 634697062fe1
children de6f547574be
comparison
equal deleted inserted replaced
12068:6624d0ac6a52 12069:c87030dce4d9
94 if (i.ne.2) stop 1 94 if (i.ne.2) stop 1
95 ]]),[acx_blas_isamax_fcall_ok=yes], 95 ]]),[acx_blas_isamax_fcall_ok=yes],
96 [acx_blas_isamax_fcall_ok=no]) 96 [acx_blas_isamax_fcall_ok=no])
97 AC_MSG_RESULT([$acx_blas_isamax_fcall_ok]) 97 AC_MSG_RESULT([$acx_blas_isamax_fcall_ok])
98 # SDOT check (REAL return values) 98 # SDOT check (REAL return values)
99 AC_MSG_CHECKING([whether DDOT is called correctly from Fortran]) 99 AC_MSG_CHECKING([whether SDOT is called correctly from Fortran])
100 AC_RUN_IFELSE(AC_LANG_PROGRAM(,[[ 100 AC_RUN_IFELSE(AC_LANG_PROGRAM(,[[
101 real sdot,a(1),b(1),w 101 real sdot,a(1),b(1),w
102 external sdot 102 external sdot
103 a(1) = 1e0 103 a(1) = 1e0
104 b(1) = 2e0 104 b(1) = 2e0