Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libgomp/testsuite/libgomp.oacc-c-c++-common/structured-detach-underflow.c
2023-03-06 14:48:14 +01:00

28 lines
634 B
C

/* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
#include <stdio.h>
int main ()
{
struct {
int *arr;
} mystr;
int localarr[16];
mystr.arr = localarr;
#pragma acc enter data copyin(mystr, localarr[0:16])
#pragma acc data attach(mystr.arr)
{
#pragma acc exit data detach(mystr.arr)
fprintf (stderr, "CheCKpOInT1\n");
/* { dg-output ".*CheCKpOInT1(\n|\r\n|\r)" } */
}
/* { dg-shouldfail "" }
{ dg-output "(\n|\r\n|\r)libgomp: attach count underflow(\n|\r\n|\r)$" } */
fprintf (stderr, "CheCKpOInT2\n");
#pragma acc exit data copyout(mystr, localarr[0:16])
return 0;
}