Fortran: Fix PR 47485.
[gcc.git] / gcc / testsuite / g++.dg / goacc / member-array-acc.C
blob9993768ef20b140a3e034d43874d3b09edd86b0f
1 /* { dg-do compile } */
2 /* { dg-additional-options "-fdump-tree-gimple" } */
4 struct Foo {
5   float *a;
6   void init(int N) {
7     a = new float[N];
8     #pragma acc enter data create(a[0:N])
9   }
11 int main() { Foo x; x.init(1024); }
13 /* { dg-final { scan-tree-dump {struct:\*\(struct Foo \*\) this \[len: 1\]\) map\(alloc:this->a \[len: [0-9]+\]\) map\(alloc:\*_[0-9]+ \[len: _[0-9]+\]\) map\(attach:this->a \[bias: 0\]\)} "gimple" } } */