| ! { dg-do run } |
| |
| type t |
| integer, pointer :: p(:) |
| end type t |
| |
| type(t) :: var(2) |
| |
| allocate (var(1)%p, source=[1,2,3,5]) |
| allocate (var(2)%p, source=[2,3,5]) |
| |
| !$omp target map(var(1)%p, var(2)%p) |
| var(1)%p(1) = 5 |
| var(2)%p(2) = 7 |
| !$omp end target |
| |
| !$omp target map(var(1)%p(1:3), var(1)%p, var(2)%p) |
| var(1)%p(1) = var(1)%p(1) + 1 |
| var(2)%p(2) = var(2)%p(2) + 1 |
| !$omp end target |
| |
| !$omp target map(var(1)%p, var(2)%p, var(2)%p(1:3)) |
| var(1)%p(1) = var(1)%p(1) + 1 |
| var(2)%p(2) = var(2)%p(2) + 1 |
| !$omp end target |
| |
| !$omp target map(var(1)%p, var(1)%p(1:3), var(2)%p, var(2)%p(2)) |
| var(1)%p(1) = var(1)%p(1) + 1 |
| var(2)%p(2) = var(2)%p(2) + 1 |
| !$omp end target |
| |
| if (var(1)%p(1).ne.8) stop 1 |
| if (var(2)%p(2).ne.10) stop 2 |
| |
| end |
