https://gcc.gnu.org/bugzilla/show_bug.cgi?id=123240
--- Comment #1 from David Binderman <dcb314 at hotmail dot com> ---
Reduced source code seems to be:
--- bug1165.c ---
enum { FE_INVALID } use_blas(int, int, int);
int matrix_multiply_self_transpose_a_0, matrix_multiply_self_transpose_i,
matrix_multiply_self_transpose_nr;
static void matrix_multiply_self_transpose(int atr) {
if (use_blas(matrix_multiply_self_transpose_a_0,
matrix_multiply_self_transpose_a_0,
matrix_multiply_self_transpose_nr))
if (atr)
;
else
#pragma omp parallel
for (; matrix_multiply_self_transpose_i;)
;
}
void gretl_matrix_XTX_new() { matrix_multiply_self_transpose(1); }
cvise $
