mirror of
https://github.com/autc04/Retro68.git
synced 2024-08-18 12:29:08 +00:00
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;
|
||
|
}
|