gcc/testsuite/c-c++-common/gomp/target-implicit-map-2.c

   1 /* { dg-do compile } */
   2 /* { dg-additional-options "-fdump-tree-gimple" } */
   3 #include <stdlib.h>
   4
   5 #define N 10
   6
   7 struct S
   8 {
   9   int a, b;
  10   int *ptr;
  11   int c, d;
  12 };
  13
  14 int
  15 main (void)
  16 {
  17   struct S a;
  18   a.ptr = (int *) malloc (sizeof (int) * N);
  19
  20   for (int i = 0; i < N; i++)
  21     a.ptr[i] = 0;
  22
  23   #pragma omp target enter data map(to: a.ptr, a.ptr[:N])
  24
  25   #pragma omp target
  26   for (int i = 0; i < N; i++)
  27     a.ptr[i] += 1;
  28
  29   #pragma omp target update from(a.ptr[:N])
  30
  31   for (int i = 0; i < N; i++)
  32     if (a.ptr[i] != 1)
  33       abort ();
  34
  35   #pragma omp target map(a.ptr[:N])
  36   for (int i = 0; i < N; i++)
  37     a.ptr[i] += 1;
  38
  39   #pragma omp target update from(a.ptr[:N])
  40
  41   for (int i = 0; i < N; i++)
  42     if (a.ptr[i] != 2)
  43       abort ();
  44
  45   #pragma omp target exit data map(from:a.ptr, a.ptr[:N])
  46
  47   return 0;
  48 }
  49
  50 /* { dg-final { scan-tree-dump {#pragma omp target num_teams.* map\(tofrom:a \[len: [0-9]+\]\[implicit\]\)} "gimple" } } */
  51
  52 /* { dg-final { scan-tree-dump {#pragma omp target num_teams.* map\(struct:a \[len: 1\]\) map\(alloc:a\.ptr \[len: [0-9]+\]\) map\(tofrom:\*_[0-9]+ \[len: [0-9]+\]\) map\(attach:a\.ptr \[bias: 0\]\)} "gimple" } } */
  53 /* { dg-final { scan-tree-dump-not {map\(struct:a \[len: 1\]\) map\(alloc:a\.ptr \[len: 0\]\)} "gimple" } } */