diff --git a/utest/test_dnrm2.c b/utest/test_dnrm2.c index 0035863df..145676044 100644 --- a/utest/test_dnrm2.c +++ b/utest/test_dnrm2.c @@ -30,7 +30,7 @@ OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ - +#include #include "openblas_utest.h" #if defined(BUILD_DOUBLE) @@ -64,4 +64,17 @@ CTEST(dnrm2,dnrm2_tiny) res1=BLASFUNC(dnrm2)(&n, x, &incx); ASSERT_DBL_NEAR_TOL(res2, res1, DOUBLE_EPS); } +CTEST(dnrm2,dnrm2_neg_incx) +{ + int i; + double x[5]; + blasint incx=-1; + blasint n=5; + double res1, res2; + + for (i=0;i