| ! { dg-do run } | |
| /* Nullify the 'finalize' clause. | |
| That means, we do not detach properly, the host sees a device pointer, and | |
| we fail as follows. | |
| { dg-output "STOP 30(\n|\r\n|\r)+" { target { ! openacc_host_selected } } } | |
| { dg-shouldfail "" { ! openacc_host_selected } } | |
| */ | |
| #define finalize | |
| #include "deep-copy-6.f90" | |