mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-03 10:49:58 +00:00
18 lines
356 B
C
18 lines
356 B
C
|
/* { dg-do "compile" } */
|
||
|
|
/* { dg-additional-options "--param ggc-min-expand=0" } */
|
||
|
|
/* { dg-additional-options "--param ggc-min-heapsize=0" } */
|
||
|
|
/* { dg-additional-options "-g" } */
|
||
|
|
|
||
|
|
/* Minimized from on target-2.c. */
|
||
|
|
|
||
|
|
void
|
||
|
|
fn3 (int x)
|
||
|
|
{
|
||
|
|
double b[3 * x];
|
||
|
|
int i;
|
||
|
|
#pragma omp target
|
||
|
|
#pragma omp parallel for
|
||
|
|
for (i = 0; i < x; i++)
|
||
|
|
b[i] += 1;
|
||
|
|
}
|