| ! { dg-do compile } | |
| implicit none | |
| integer ::x,z | |
| x = 42 | |
| print '(*(z16:" "))', loc(x) | |
| !$omp target map(x, z) | |
| block | |
| integer :: y | |
| x = 123 | |
| y = 99 | |
| !$omp target device(ancestor:1) map(always,tofrom:x) map(y) ! { dg-error "'ancestor' device modifier not preceded by 'requires' directive with 'reverse_offload' clause" } | |
| print '(*(z16:" "))', loc(x), loc(y) | |
| print * ,x, y | |
| x = -x | |
| y = -y | |
| !$omp end target ! { dg-error "Unexpected ..OMP END TARGET statement" } | |
| z = y | |
| end block | |
| print * ,x !, z | |
| end | |