mirror of git://gcc.gnu.org/git/gcc.git
36 lines
454 B
C
36 lines
454 B
C
/* { dg-do run } */
|
|
|
|
/* PR middle-end/63247 */
|
|
|
|
#include <stdlib.h>
|
|
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
#define N 4
|
|
short a[N];
|
|
|
|
a[0] = 10;
|
|
a[1] = 10;
|
|
a[2] = 10;
|
|
a[3] = 10;
|
|
|
|
#pragma acc parallel copy(a[1:N-1])
|
|
{
|
|
a[1] = 51;
|
|
a[2] = 52;
|
|
a[3] = 53;
|
|
}
|
|
|
|
if (a[0] != 10)
|
|
abort ();
|
|
if (a[1] != 51)
|
|
abort ();
|
|
if (a[2] != 52)
|
|
abort ();
|
|
if (a[3] != 53)
|
|
abort ();
|
|
|
|
return 0;
|
|
}
|