| /* { dg-do compile } */ |
| /* { dg-additional-options "-fdump-tree-gimple" } */ |
| |
| #include <stddef.h> |
| |
| size_t |
| vla (int array_li) |
| { |
| float array[array_li]; |
| size_t size1, size2; |
| |
| #pragma omp parallel default(none) shared(size1, array) |
| size1 = sizeof array; |
| |
| #pragma omp target defaultmap(none) map(from:size2) map(alloc:array) |
| size2 = sizeof array; |
| |
| return size1 + size2; |
| } |
| |
| /* { dg-final { scan-tree-dump "omp parallel .*shared\\(array_li\.\[0-9\]\\)" "gimple" } } */ |
| /* C */ |
| /* { dg-final { scan-tree-dump "omp target .*private\\(array_li\.\[0-9\]\\)" "gimple" { target { ! c++ } } } } */ |
| /* C++ */ |
| /* { dg-final { scan-tree-dump "omp target .*firstprivate\\(array_li\.\[0-9\]\\)" "gimple" { target { c++ } } } } */ |
