Attachment 1714660 Details for Bug 1878449 – Test program demonstrating the issue

Test program demonstrating the issue

test.c (text/x-csrc), 1.04 KB, created by Elliott Sales de Andrade on 2020-09-13 02:36:26 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Elliott Sales de Andrade

Created: 2020-09-13 02:36:26 UTC

Size: 1.04 KB

patch

obsolete

>#include <stdio.h>
>#include <cblas.h>
>
>int
>main(void)
>{
>	const double x[16] = {
>		-0.4759506499688366,	+0.4656291053809647,
>		-0.6826320556910688,	-0.7694515466337011,
>		-0.4437469610112805,	-0.2274498627312811,
>		-0.0813662255708667,	+0.25700235907942326,
>		-0.35799891895966574,	-0.7498841473288012,
>		+0.036785641195074215,	+0.9670972102872823,
>		-0.4761141488697107,	-0.11355026270974378,
>		+0.9521705697548672,	+0.5791166840478064,
>	};
>	const double y[16] = {
>		+0.5882371515831732,	-7.0347725597508237e-04,
>		-0.27747685516513854,	-6.4286264567294582e-01,
>		-0.167792120858004,	-1.7371739715068224e-01,
>		+0.1685162562206428,	-6.0160952958980318e-01,
>		+0.5203435476117149,	+6.3398807174073424e-02,
>		-0.6243831891471687,	+6.6474140613596511e-01,
>		-0.42366570437592865,	-6.2949810985591026e-01,
>		+0.34043771632046815,	+9.1471844734252139e-01,
>	};
>	double ret[2];
>	cblas_zdotc_sub(8, x, 1, y, 1, ret);
>	printf("Result: %.15f%+.15fj\n", ret[0], ret[1]);
>	cblas_zdotc_sub(8, y, 1, x, 1, ret);
>	printf("Result: %.15f%+.15fj\n", ret[0], ret[1]);
>	return 0;
>}

Actions: View

Attachments on bug 1878449: 1714660