libgomp/testsuite/libgomp.oacc-fortran/deep-copy-6-no_finalize.F90

   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