diff -Naur gsl-2.6/matrix/minmax_source.c gsl-2.6mic/matrix/minmax_source.c --- gsl-2.6/matrix/minmax_source.c 2017-07-23 16:03:11.000000000 +0200 +++ gsl-2.6mic/matrix/minmax_source.c 2020-04-17 09:48:24.435584441 +0200 @@ -92,8 +92,10 @@ size_t i, j; + #pragma novector for (i = 0; i < M; i++) { + #pragma novector for (j = 0; j < N; j++) { BASE x = m->data[i * tda + j]; diff -Naur gsl-2.6/movstat/qnacc.c gsl-2.6mic/movstat/qnacc.c --- gsl-2.6/movstat/qnacc.c 2018-11-14 22:27:10.000000000 +0100 +++ gsl-2.6mic/movstat/qnacc.c 2020-04-17 16:44:04.269063974 +0200 @@ -35,8 +35,8 @@ typedef struct { qnacc_type_t *window; /* linear array for current window */ - qnacc_type_t *work; /* workspace, length 3*n */ - int *work_int; /* integer workspace, length 5*n */ + qnacc_type_t *work; /* workspace, length 4*n : avoid alignment errors */ + int *work_int; /* integer workspace, length 8*n : avoid alignment errors */ ringbuf *rbuf; /* ring buffer storing current window */ } qnacc_state_t; @@ -47,9 +47,9 @@ size += sizeof(qnacc_state_t); size += n * sizeof(qnacc_type_t); /* window */ - size += 3 * n * sizeof(qnacc_type_t); /* work */ - size += 5 * n * sizeof(int); /* work_int */ - size += ringbuf_size(n); + size += 4 * n * sizeof(qnacc_type_t); /* work */ + size += 8 * n * sizeof(int); /* work_int */ + size += ringbuf_size(n) ; return size; } @@ -61,8 +61,8 @@ state->window = (qnacc_type_t *) ((unsigned char *) vstate + sizeof(qnacc_state_t)); state->work = (qnacc_type_t *) ((unsigned char *) state->window + n * sizeof(qnacc_type_t)); - state->work_int = (int *) ((unsigned char *) state->work + 3 * n * sizeof(qnacc_type_t)); - state->rbuf = (ringbuf *) ((unsigned char *) state->work_int + 5 * n * sizeof(int)); + state->work_int = (int *) ((unsigned char *) state->work + 4 * n * sizeof(qnacc_type_t)); + state->rbuf = (ringbuf *) ((unsigned char *) state->work_int + 8 * n * sizeof(int)); ringbuf_init(n, state->rbuf); diff -Naur gsl-2.6/test-driver gsl-2.6mic/test-driver --- gsl-2.6/test-driver 2017-07-23 16:03:39.000000000 +0200 +++ gsl-2.6mic/test-driver 2020-04-17 09:36:07.598347545 +0200 @@ -91,8 +91,16 @@ trap "st=141; $do_exit" 13 trap "st=143; $do_exit" 15 +echo "script=./$1 " >> /tmp/test-driver.log +file ./$1 >> /tmp/test-driver.log + # Test script is run here. -"$@" >$log_file 2>&1 +if file ./$1 | grep -q "shell script" +then + $PWD/"$@" >$log_file 2>&1 +else + ssh mic0 $PWD/"$@" >$log_file 2>&1 +fi estatus=$? if test $enable_hard_errors = no && test $estatus -eq 99; then estatus=1 diff -Naur gsl-2.6/test_gsl_histogram.sh gsl-2.6mic/test_gsl_histogram.sh --- gsl-2.6/test_gsl_histogram.sh 2017-07-23 16:03:11.000000000 +0200 +++ gsl-2.6mic/test_gsl_histogram.sh 2020-04-17 16:22:16.033074746 +0200 @@ -7,7 +7,7 @@ 4 5 1 EOF -echo 1 2 2.5 4 | ./gsl-histogram 1 5 4 | tr -d '\r' > test.obs.1.tmp +echo 1 2 2.5 4 | ssh mic0 $PWD/gsl-histogram 1 5 4 | tr -d '\r' > test.obs.1.tmp cmp test.exp.1.tmp test.obs.1.tmp STATUS=$? diff -Naur gsl-2.6/vector/minmax_source.c gsl-2.6mic/vector/minmax_source.c --- gsl-2.6/vector/minmax_source.c 2017-07-23 16:03:11.000000000 +0200 +++ gsl-2.6mic/vector/minmax_source.c 2020-04-17 09:00:46.971880890 +0200 @@ -82,6 +82,7 @@ size_t i; + #pragma novector for (i = 0; i < N; i++) { BASE x = v->data[i*stride];