summaryrefslogtreecommitdiff
path: root/test-chill/test-cases/examples/chill/jacobi1.c
diff options
context:
space:
mode:
Diffstat (limited to 'test-chill/test-cases/examples/chill/jacobi1.c')
-rw-r--r--test-chill/test-cases/examples/chill/jacobi1.c19
1 files changed, 19 insertions, 0 deletions
diff --git a/test-chill/test-cases/examples/chill/jacobi1.c b/test-chill/test-cases/examples/chill/jacobi1.c
new file mode 100644
index 0000000..e7ff8f8
--- /dev/null
+++ b/test-chill/test-cases/examples/chill/jacobi1.c
@@ -0,0 +1,19 @@
+
+#ifndef N
+#define N 512
+#endif
+
+/*
+<test name=jacobi define="{'N':512}">
+procedure int jacobi(
+ in out float[N][N] a = matrix [i,j] random(2,-2))
+</test>
+*/
+int jacobi(float a[N][N]) {
+ int t, i;
+ for (t = 2; t <= 100; t++)
+ for (i = 2; i <= N - 1; i++)
+ a[t][i] = a[t - 1][i - 1] + a[t - 1][i] + a[t - 1][i + 1];
+
+ return 0;
+}