1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
/* { 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;
}
|
