Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/c-c++-common/cilk-plus/AN/rank_mismatch3.c @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
/* { 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; }