bones-compiler 1.1.0 → 1.3.1

data/examples/benchmarks/{3mm.c → PolyBench/3mm.c}

@@ -34,12 +34,13 @@ int main(void) {
 	float G[NI][NL];
 	
 	// Set the input data
-	for (i=0; i<NI; i++) { for (j=0; j<NK; j++) { A[i][j] = ((float) i*j) / NI; } }
+/*	for (i=0; i<NI; i++) { for (j=0; j<NK; j++) { A[i][j] = ((float) i*j) / NI; } }
 	for (i=0; i<NK; i++) { for (j=0; j<NJ; j++) { B[i][j] = ((float) i*(j+1)) / NJ; } }
 	for (i=0; i<NL; i++) { for (j=0; j<NJ; j++) { C[i][j] = ((float) i*(j+3)) / NL; } }
 	for (i=0; i<NI; i++) { for (j=0; j<NL; j++) { D[i][j] = ((float) i*(j+2)) / NK; } }
-	
+*/	
 	// Perform the computation (G := E*F, with E := A*B and F := C*D)
+	#pragma scop
 	#pragma species kernel 0:NI-1,0:NK-1|chunk(0:0,0:NK-1) ^ 0:NK-1,0:NJ-1|chunk(0:NK-1,0:0) -> 0:NI-1,0:NJ-1|element
 	// E := A*B
 	for (i=0; i<NI; i++) {
@@ -73,9 +74,11 @@ int main(void) {
 		}
 	}
 	#pragma species endkernel 3mm-part3
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	G[8][9] = G[8][9];
 	return 0;
 }
 

data/examples/benchmarks/{adi.c → PolyBench/adi.c}

@@ -30,15 +30,16 @@ int main(void) {
 	float B[N][N];
 	
 	// Set the input data
-	for (i=0; i<N; i++) {
+/*	for (i=0; i<N; i++) {
 		for (j=0; j<N; j++) {
 			X[i][j] = ((float) i*(j+1) + 1) / N;
 			A[i][j] = ((float) i*(j+2) + 2) / N;
 			B[i][j] = ((float) i*(j+3) + 3) / N;
 		}
 	}
-	
+*/	
 	// Perform the computation
+	#pragma scop
 	for (t=0; t<TSTEPS; t++) {
 		for (i1=0; i1<N; i1++) {
 			for (i2=1; i2<N; i2++) {
@@ -46,7 +47,7 @@ int main(void) {
 				B[i1][i2] = B[i1][i2] - A[i1][i2] * A[i1][i2] / B[i1][i2-1];
 			}
 		}
-		#pragma species kernel 0:N-1,N-1:N-1|element  ^ 0:N-1,N-1:N-1|element -> 0:N-1,N-1:N-1|element
+		#pragma species kernel 0:N-1,N-1:N-1|element ^ 0:N-1,N-1:N-1|element -> 0:N-1,N-1:N-1|element
 		for (i1=0; i1<N; i1++) {
 			X[i1][N-1] = X[i1][N-1] / B[i1][N-1];
 		}
@@ -73,9 +74,11 @@ int main(void) {
 			}
 		}
 	}
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	X[8][9] = X[8][9];
 	return 0;
 }
 

data/examples/benchmarks/{atax.c → PolyBench/atax.c}

@@ -31,7 +31,7 @@ int main(void) {
 	float tmp[NX];
 	
 	// Set the input data
-	for (i=0; i<NY; i++) {
+/*	for (i=0; i<NY; i++) {
 		x[i] = i*3.14159;
 	}
 	for (i=0; i<NX; i++) {
@@ -39,8 +39,9 @@ int main(void) {
 			A[i][j] = ((float) i*(j+1)) / NX;
 		}
 	}
-	
+*/	
 	// Perform the computation (y := A'Ax)
+	#pragma scop
 	#pragma species kernel 0:NX-1,0:NY-1|chunk(0:0,0:NY-1) ^ 0:NY-1|full -> 0:NX-1|element
 	for (i=0; i<NX; i++) {
 		tmp[i] = 0;
@@ -57,9 +58,11 @@ int main(void) {
 		}
 	}
 	#pragma species endkernel atax-part2
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	y[9] = y[9];
 	return 0;
 }
 

data/examples/benchmarks/{bicg.c → PolyBench/bicg.c}

@@ -32,7 +32,7 @@ int main(void) {
 	float s[NY];
 	
 	// Set the input data
-	for (i=0; i<NY; i++) {
+/*	for (i=0; i<NY; i++) {
 		p[i] = i*3.14159;
 	}
 	for (i=0; i<NX; i++) {
@@ -41,8 +41,9 @@ int main(void) {
 			A[i][j] = ((float) i*(j+1)) / NX;
 		}
 	}
-	
+*/	
 	// Perform the computation
+	#pragma scop
 	#pragma species kernel 0:NX-1|full ^ 0:NX-1,0:NY-1|chunk(0:NX-1,0:0) -> 0:NY-1|element
 	for (j=0; j<NY; j++) {
 		s[j] = 0;
@@ -59,9 +60,11 @@ int main(void) {
 		}
 	}
 	#pragma species endkernel bicg-part2
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	q[9] = q[9];
 	return 0;
 }
 

data/examples/benchmarks/{cholesky.c → PolyBench/cholesky.c}

@@ -38,6 +38,7 @@ int main(void) {
 	}
 	
 	// Perform the computation
+	#pragma scop
 	for (i=0; i<N; i++) {
 		x[0] = A[i][i];
 		#pragma species kernel i:i,0:i-1|element -> 0:0|shared
@@ -57,8 +58,10 @@ int main(void) {
 		}
 		#pragma species endkernel cholesky-part2
 	}
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	A[8][9] = A[8][9];
 	return 0;
 }

data/examples/benchmarks/{common.h → PolyBench/common.h}

@@ -25,9 +25,9 @@
 
 // Select a dataset size
 //#define MINI_DATASET
-#define SMALL_DATASET
+//#define SMALL_DATASET
 //#define STANDARD_DATASET
-//#define LARGE_DATASET
+#define LARGE_DATASET
 //#define EXTRALARGE_DATASET
 
 // Defines used per benchmark:

data/examples/benchmarks/{correlation.c → PolyBench/correlation.c}

@@ -15,7 +15,7 @@
 // == File information
 // Filename...........benchmark/correlation.c
 // Author.............Cedric Nugteren
-// Last modified on...26-Jun-2012
+// Last modified on...07-Feb-2013
 //
 
 #include "common.h"
@@ -36,13 +36,15 @@ int main(void) {
 	float eps = 0.1;
 	
 	// Set the input data
-	for (i=0; i<N; i++) {
+/*	for (i=0; i<N; i++) {
 		for (j=0; j<M; j++) {
 			data[i][j] = ((float) i*j) / M;
 		}
 	}
-	
+*/	
 	// Perform the computation
+	#pragma scop
+	
 	// Determine the mean of the column vectors of the input data matrix
 	#pragma species kernel 0:N-1,0:M-1|chunk(0:N-1,0:0) -> 0:M-1|element
 	for (j=0; j<M; j++) {
@@ -53,8 +55,9 @@ int main(void) {
 		mean[j] /= float_n;
 	}
 	#pragma species endkernel correlation-part1
-	#pragma species kernel 0:M-1|element ^ 0:N-1,0:M-1|chunk(0:N-1,0:0) -> 0:M-1|element
+	
 	// Determine the standard deviations of the column vectors of the input data matrix
+	#pragma species kernel 0:M-1|element ^ 0:N-1,0:M-1|chunk(0:N-1,0:0) -> 0:M-1|element
 	for (j=0; j<M; j++) {
 		stddev[j] = 0.0;
 		meanj = mean[j];
@@ -66,8 +69,9 @@ int main(void) {
 		stddev[j] = stddev[j] <= eps ? 1.0 : stddev[j];
 	}
 	#pragma species endkernel correlation-part2
-	#pragma species kernel 0:N-1,0:M-1|element ^ 0:M-1|element ^ 0:M-1|element -> 0:N-1,0:M-1|element
+	
 	// Center and reduce the column vectors
+	#pragma species kernel 0:N-1,0:M-1|element ^ 0:M-1|element ^ 0:M-1|element -> 0:N-1,0:M-1|element
 	for (i=0; i<N; i++) {
 		for (j=0; j<M; j++) {
 			data[i][j] -= mean[j];
@@ -75,10 +79,14 @@ int main(void) {
 		}
 	}
 	#pragma species endkernel correlation-part3
+	
+	// End of the computation
+	#pragma endscop
+	
 	// Calculate the MxM correlation matrix
 	for (j1=0; j1<M-1; j1++) {
 		symmat[j1][j1] = 1.0;
-		#pragma species kernel 0:N-1,j1:j1|full ^ 0:N-1,j1+1:M-1|chunk(0:N-1,0:0) -> j1+1:M-1,j1:j1|element ^ j1:j1,j1+1:M-1|element
+		//#pragma species kernel 0:N-1,j1:j1|full ^ 0:N-1,j1+1:M-1|chunk(0:N-1,0:0) -> j1+1:M-1,j1:j1|element ^ j1:j1,j1+1:M-1|element
 		for (j2=j1+1; j2<M; j2++) {
 			symmat[j1][j2] = 0.0;
 			for (i = 0; i<N; i++) {
@@ -86,12 +94,13 @@ int main(void) {
 			}
 			symmat[j2][j1] = symmat[j1][j2];
 		}
-		#pragma species endkernel correlation-part4
+		//#pragma species endkernel correlation-part4
 	}
 	symmat[M-1][M-1] = 1.0;
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	symmat[8][9] = symmat[8][9];
 	return 0;
 }
 

data/examples/benchmarks/{covariance.c → PolyBench/covariance.c}

@@ -33,13 +33,14 @@ int main(void) {
 	float float_n = 1.2;
 	
 	// Set the input data
-  for (i=0; i<N; i++) {
+/*	for (i=0; i<N; i++) {
 		for (j=0; j<M; j++) {
 			data[i][j] = ((float) i*j) / M;
 		}
 	}
-	
+*/	
 	// Perform the computation
+	#pragma scop
 	#pragma species kernel 0:N-1,0:M-1|chunk(0:N-1,0:0) -> 0:M-1|element
 	// Determine the mean of the column vectors of the input data matrix
 	for (j=0; j<M; j++) {
@@ -58,6 +59,9 @@ int main(void) {
 		}
 	}
 	#pragma species endkernel covariance-part2
+	
+	#pragma endscop
+	
 	// Calculate the MxM covariance matrix
 	for (j1=0; j1<M; j1++) {
 		#pragma species kernel 0:N-1,j1:j1|full ^ 0:N-1,j1:M-1|chunk(0:N-1,0:0) -> j1:M-1,j1:j1|element ^ j1:j1,j1:M-1|element
@@ -73,5 +77,6 @@ int main(void) {
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	symmat[8][9] = symmat[8][9];
 	return 0;
 }

data/examples/benchmarks/{doitgen.c → PolyBench/doitgen.c}

@@ -30,10 +30,11 @@ int main(void) {
 	float C4[NP][NP];
 	
 	// Set the input data
-	for (i=0; i<NR; i++) { for (j=0; j<NQ; j++) { for (k=0; k<NP; k++) { A[i][j][k] = ((float) i*j + k) / NP; } } }
+/*	for (i=0; i<NR; i++) { for (j=0; j<NQ; j++) { for (k=0; k<NP; k++) { A[i][j][k] = ((float) i*j + k) / NP; } } }
 	for (i=0; i<NP; i++) { for (j=0; j<NP; j++) { C4[i][j] = ((float) i*j) / NP; } }
-	
+*/	
 	// Perform the computation
+	#pragma scop
 	#pragma species kernel 0:NR-1,0:NQ-1,0:NP-1|chunk(0:0,0:0,0:NP-1) ^ 0:NP-1,0:NP-1|chunk(0:NP-1,0:0) -> 0:NR-1,0:NQ-1,0:NP-1|element
 	for (r=0; r<NR; r++) {
 		for (q=0; q<NQ; q++) {
@@ -55,9 +56,11 @@ int main(void) {
 		}
 	}
 	#pragma species endkernel doitgen-part2
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	A[8][9][3] = A[8][9][3];
 	return 0;
 }
 

data/examples/benchmarks/{durbin.c → PolyBench/durbin.c}

@@ -45,6 +45,7 @@ int main(void) {
 	}
 	
 	// Perform the computation
+	#pragma scop
 	y[0][0] = r[0];
 	beta[0] = 1;
 	alpha[0] = r[0];
@@ -68,9 +69,11 @@ int main(void) {
 		out[i] = y[i][NX-1];
 	}
 	#pragma species endkernel durbin-part2
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	out[9] = out[9];
 	return 0;
 }
 

data/examples/benchmarks/{dynprog.c → PolyBench/dynprog.c}

@@ -40,6 +40,7 @@ int main(void) {
 	}
 	
 	// Perform the computation
+	#pragma scop
 	for (iter=0; iter<ITER; iter++) {
 		#pragma species kernel 0:0|void -> 0:LENGTH-1,0:LENGTH-1|element
 		for (i=0; i<=LENGTH-1; i++) {
@@ -59,9 +60,11 @@ int main(void) {
 		}
 		out += c[0][LENGTH-1];
 	}
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	c[8][9] = c[8][9];
 	return 0;
 }
 

data/examples/benchmarks/{fdtd-2d-apml.c → PolyBench/fdtd-2d-apml.c}

@@ -72,6 +72,7 @@ int main(void) {
 	}
 	
 	// Perform the computation
+	#pragma scop
 	for (iz=0; iz<CZ; iz++) {
 		for (iy=0; iy<CYM; iy++) {
 			czm_iz = czm[iz];
@@ -106,9 +107,11 @@ int main(void) {
 			Bza[iz][CYM][CXM] = tmp;
 		}
 	}
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	Hz[8][9][3] = Hz[8][9][3];
 	return 0;
 }
 

data/examples/benchmarks/{fdtd-2d.c → PolyBench/fdtd-2d.c}

@@ -30,15 +30,16 @@ int main(void) {
 	float hz[NI][NJ];
 	
 	// Set the input data
-	for (i=0; i<NI; i++) {
+/*	for (i=0; i<NI; i++) {
 		for (j=0; j<NJ; j++) {
 			ex[i][j] = ((float) i*(j+1)) / NI;
 			ey[i][j] = ((float) i*(j+2)) / NJ;
 			hz[i][j] = ((float) i*(j+3)) / NI;
 		}
 	}
-	
+*/	
 	// Perform the computation
+	#pragma scop
 	for (t=0; t<TSTEPS; t++) {
 		#pragma species kernel 0:0|void -> 0:0,0:NJ-1|element
 		for (j=0; j<NJ; j++) {
@@ -67,8 +68,10 @@ int main(void) {
 		}
 		#pragma species endkernel fdtd-2d-part4
 	}
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	hz[8][9] = hz[8][9];
 	return 0;
 }

data/examples/benchmarks/{floyd-warshall.c → PolyBench/floyd-warshall.c}

@@ -35,6 +35,7 @@ int main(void) {
 	}
 	
 	// Perform the computation
+	#pragma scop
 	for (k=0; k<N; k++) {
 		for (i=0; i<N; i++) {
 			for (j=0; j<N; j++) {
@@ -42,9 +43,11 @@ int main(void) {
 			}
 		}
 	}
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	path[8][9] = path[8][9];
 	return 0;
 }
 

data/examples/benchmarks/{gemm.c → PolyBench/gemm.c}

@@ -34,7 +34,7 @@ int main(void) {
 	int beta = 2123;
 	
 	// Set the input data
-	for (i=0; i<NI; i++) {
+/*	for (i=0; i<NI; i++) {
 		for (j=0; j<NK; j++) {
 			A[i][j] = ((float) i*j) / NI;
 		}
@@ -49,8 +49,9 @@ int main(void) {
 			C[i][j] = ((float) i*j) / NI;
 		}
 	}
-	
+*/	
 	// Perform the computation (C := alpha*A*B + beta*C)
+	#pragma scop
 	#pragma species kernel 0:NI-1,0:NJ-1|element ^ 0:NI-1,0:NK-1|chunk(0:0,0:NK-1) ^ 0:NK-1,0:NJ-1|chunk(0:NK-1,0:0) -> 0:NI-1,0:NJ-1|element
 	for (i=0; i<NI; i++) {
 		for (j=0; j<NJ; j++) {
@@ -61,9 +62,11 @@ int main(void) {
 		}
 	}
 	#pragma species endkernel gemm
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
+	C[8][9] = C[8][9];
 	return 0;
 }