| ! { dg-do run } |
| |
| implicit none |
| |
| type t |
| integer :: value |
| type(t), pointer :: chain |
| end type t |
| |
| type(t), target :: var, var2 |
| |
| var%value = 99 |
| var2%value = 199 |
| |
| var%chain => var2 |
| nullify(var2%chain) |
| |
| !$acc enter data copyin(var, var2) |
| |
| !$acc enter data attach(var%chain) |
| |
| !$acc serial |
| ! { dg-warning "using .vector_length \\(32\\)., ignoring 1" "" { target openacc_nvidia_accel_selected } .-1 } |
| var%value = 5 |
| var%chain%value = 7 |
| !$acc end serial |
| |
| !$acc exit data detach(var%chain) |
| |
| !$acc exit data copyout(var, var2) |
| |
| if (var%value.ne.5) stop 1 |
| if (var2%value.ne.7) stop 2 |
| |
| end |
