libgomp/testsuite/libgomp.oacc-c-c++-common/declare-4.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

/* { dg-do run  { target openacc_nvidia_accel_selected } } */

#include <stdlib.h>
#include <openacc.h>

float b;
#pragma acc declare link (b)

#pragma acc routine
int
func (int a)
{
  b = a + 1;

  return b;
}

int
main (int argc, char **argv)
{
  float a;

  a = 2.0;

#pragma acc parallel copy (a)
  {
    b = a;
    a = 1.0;
    a = a + b;
  }

  if (a != 3.0)
    abort ();

  a = func (a);

  if (a != 4.0)
    abort ();

  return 0;
}