Skip gnat.dg/prot7.adb on hppa.
[official-gcc.git] / libgomp / testsuite / libgomp.c / target-simd-clone-3.c
blobbde091e24ba1a7569da50e54d83351ede2b88cdd
1 /* { dg-do link { target { offload_target_amdgcn } } } */
2 /* { dg-additional-options "-O2 -foffload-options=-fdump-ipa-simdclone-details" } */
4 /* Test that device simd clones are not generated for functions with the host
5 "declare target" clause only. */
7 __attribute__ ((__noinline__)) int addit (int a, int b)
9 return a + b;
11 #pragma omp declare target to(addit) device_type(host)
13 #pragma omp declare target
14 void callit (int *a, int *b, int *c)
16 int i;
17 #pragma omp for simd
18 for (i = 0; i < 16; i++)
19 c[i] = addit (a[i], b[i]);
21 #pragma omp end declare target
23 int main (void)
25 int aa[16], bb[16], cc[16];
26 int i;
27 for (i = 0; i < 16; i++)
29 aa[i] = i;
30 bb[i] = -i;
32 callit (aa, bb, cc);
33 for (i = 0; i < 16; i++)
34 if (cc[i] != 0)
35 return 1;
36 return 0;
39 /* { dg-final { scan-offload-ipa-dump "device doesn't match" "simdclone" { target x86_64-*-* } } } */
40 /* { dg-final { scan-offload-ipa-dump-not "Generated .* clone" "simdclone" { target x86_64-*-* } } } */