gcc/testsuite/g++.dg/goacc/pr107028-2.C

   1 // { dg-do compile }
   2 // { dg-additional-options "-fdump-tree-gimple" }
   3 /* { dg-skip-if "requires hosted libstdc++ for cstdlib malloc" { ! hostedlib } } */
   4
   5 #include <cstdlib>
   6
   7 typedef float real_t;
   8
   9 struct foo {
  10   real_t *data;
  11 };
  12
  13 #define n 1024
  14
  15 int test3() {
  16     real_t *a = (real_t *)malloc(n * sizeof(real_t));
  17     struct foo b;
  18     b.data = (real_t *)malloc(n * sizeof(real_t));
  19
  20     #pragma acc data copyin(a[0:n], b, b.data[0:n])
  21 // { dg-final { scan-tree-dump {map\(to:\*_[0-9]+ \[len: [0-9]+\]\) map\(attach:b.data \[bias: 0\]\) map\(to:b \[len: [0-9]+\]\) map\(to:\*a \[len: [0-9]+\]\)} "gimple" } }
  22     { }
  23
  24     free (b.data);
  25     free (a);
  26
  27     return 0;
  28 }