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