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