Mercurial > hg > CbC > CbC_gcc

diff gcc/testsuite/c-c++-common/cilk-plus/AN/sec_implicit_ex.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/testsuite/c-c++-common/cilk-plus/AN/sec_implicit_ex.c	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,29 @@
+/* { dg-do run } */
+/* { dg-options "-fcilkplus" } */
+
+#define NUMBER 20
+
+int main(void)
+{
+  int jj, kk, array_3C[NUMBER][NUMBER][NUMBER];
+  int ii,array[NUMBER], y = 0, y_int = 0, array2[NUMBER], 
+      array_3[NUMBER][NUMBER][NUMBER];
+  double x, yy, array3[NUMBER], array4[NUMBER];
+
+  array[:] = __sec_implicit_index (0);
+  array_3[:][:][:] = __sec_implicit_index (1) + __sec_implicit_index(0) +
+    __sec_implicit_index (2);
+
+  for (ii = 0; ii < NUMBER; ii++)
+    for (jj = 0; jj < NUMBER; jj++)
+      for (kk = 0; kk < NUMBER; kk++)
+	array_3C[ii][jj][kk] = ii+jj+kk;
+	
+  for (ii = 0; ii < NUMBER; ii++)
+    for (jj = 0; jj < NUMBER; jj++)
+      for (kk = 0; kk < NUMBER; kk++)
+	if (array_3[ii][jj][kk] != array_3C[ii][jj][kk])
+	  return 1;
+	
+  return 0;
+}