Example #1
0
int test_ptr10034(int argc, char **argv)
{
 if (argc > 3)
   goto end;

 X x;
 X xs[16];
 exx(x);

 end:
   if (argc > 1) {
   for (int i = 0; i < argc; ++i)
   {

   }
   }
   return 0;
}
Example #2
0
int main(int argc, char *argv[])
{
    srand(time(0));

    int m = atoi(argv[1]);
    int n = atoi(argv[2]);
    int i, j;
	float *x;
	float *y;
	float *A;
	float *t;
	int incx = 1;
	int incy = 1;
	float alpha;
	int lda = m;

    alpha = rand()/1.0/RAND_MAX - 0.5;
    x = (float*)malloc(sizeof(float)*m);
    y = (float*)malloc(sizeof(float)*n);
    t = (float*)malloc(sizeof(float)*m*n);
    A = (float*)malloc(sizeof(float)*m*n);
    
	for (i = 0; i < m; i++)
		x[i] = rand()/1.0/RAND_MAX - 0.5; 
	for (i = 0; i < n; i++)
		y[i] = rand()/1.0/RAND_MAX - 0.5; 
	for (i = 0; i < m*n; i++)
		t[i] = rand()/1.0/RAND_MAX - 0.5; 

 
 	unsigned long long int t1,t2,t3,t4,t5,t6;
	printf("acm\n");//ACML version
	memcpy(A,t,sizeof(float)*m*n);
	clock_gettime(CLOCK_MONOTONIC, &begin);
    sger(m, n, alpha, x, incx, y, incy, A, lda);
	clock_gettime(CLOCK_MONOTONIC, &end);
	t1 =  1000000000L*(end.tv_sec - begin.tv_sec) + end.tv_nsec - begin.tv_nsec;

	printf("ori\n");//Native version
	memcpy(A,t,sizeof(float)*m*n);
	clock_gettime(CLOCK_MONOTONIC, &begin);
    ori(m, n, alpha, x, incx, y, incy, A, lda);
	clock_gettime(CLOCK_MONOTONIC, &end);
	t2 =  1000000000L*(end.tv_sec - begin.tv_sec) + end.tv_nsec - begin.tv_nsec;

	printf("one\n");//Native version with checksum
	memcpy(A,t,sizeof(float)*m*n);
	clock_gettime(CLOCK_MONOTONIC, &begin);
    one(m, n, alpha, x, incx, y, incy, A, lda);
	clock_gettime(CLOCK_MONOTONIC, &end);
	t3 =  1000000000L*(end.tv_sec - begin.tv_sec) + end.tv_nsec - begin.tv_nsec;

	printf("exx\n");//Native version with checksum (optimized)
	memcpy(A,t,sizeof(float)*m*n);
	clock_gettime(CLOCK_MONOTONIC, &begin);
    exx(m, n, alpha, x, incx, y, incy, A, lda);
	clock_gettime(CLOCK_MONOTONIC, &end);
	t4 =  1000000000L*(end.tv_sec - begin.tv_sec) + end.tv_nsec - begin.tv_nsec;

	printf("dou\n");//Native version with recalculation
	memcpy(A,t,sizeof(float)*m*n);
	clock_gettime(CLOCK_MONOTONIC, &begin);
    dou(m, n, alpha, x, incx, y, incy, A, lda);
	clock_gettime(CLOCK_MONOTONIC, &end);
	t5 =  1000000000L*(end.tv_sec - begin.tv_sec) + end.tv_nsec - begin.tv_nsec;

	printf("exd\n");//Native version with recalculation (optimized)
	memcpy(A,t,sizeof(float)*m*n);
	clock_gettime(CLOCK_MONOTONIC, &begin);
    exd(m, n, alpha, x, incx, y, incy, A, lda);
	clock_gettime(CLOCK_MONOTONIC, &end);
	t6 =  1000000000L*(end.tv_sec - begin.tv_sec) + end.tv_nsec - begin.tv_nsec;


	printf("acm%16lld\n",t1);
	printf("ori%16lld\n",t2);
	printf("one%16lld\n",t3);
	printf("exx%16lld\n",t4);
	printf("dou%16lld\n",t5);
	printf("exd%16lld\n",t6);
    return 0;
}