gcc/testsuite/c-c++-common/cilk-plus/AN/rank_mismatch3.c

/* { dg-options "-fcilkplus" } */

int funct (int x, int y);
void funct_void (int x, int y, int z);
int main(void)
{
  int y, array[100], array2[100], array3[100][100], array4[100];

  array[:] = ((array2[:] + array[:]) * array4[:]) + array3[:][:]; /* { dg-error "rank mismatch between" } */
  array[:] = funct (array2[:], array3[:][:]); /* { dg-error "rank mismatch between" } */
  array[:] = array3[:][:]; /* { dg-error "rank mismatch between" } */
  array3[:][:] = array[:]; /* { dg-error "rank mismatch between" } */
  array3[:][:] = array[5]; /* This is OK!  */
  funct_void (array2[:], array3[:][:], array[:]); /* { dg-error "rank mismatch between" } */
  funct_void (array2[:], array3[:][:], array[:]); /* { dg-error "rank mismatch between" } */
  funct_void (array3[:][:], array2[:], array[:]); /* { dg-error "rank mismatch between" }  */
  funct_void (array2[:], array[:], array3[:][0:10:1]); /* { dg-error "rank mismatch between" } */
  return 0;
}