3723aedaad
Fix-up for recent commit 06b2a2abe2
"Enhance '_Pragma' diagnostics verification in OMP C/C++ test cases".
Supposedly it's the same issue as in
<https://gcc.gnu.org/bugzilla/show_bug.cgi?id=101551#c2>, where I'd
noted that:
| [...] with an offloading-enabled build of GCC we're losing
| "note: in expansion of macro '[...]'" diagnostics.
| (Effectively '-ftrack-macro-expansion=0'?)
PR middle-end/101551
libgomp/
* testsuite/libgomp.oacc-c-c++-common/reduction-5.c: XFAIL
'offloading_enabled' diagnostics issue.
58 lines
1.7 KiB
C
58 lines
1.7 KiB
C
/* { dg-additional-options "-Wopenacc-parallelism" } for testing/documenting
|
|
aspects of that functionality. */
|
|
|
|
/* Multiple reductions. */
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#define ng 8
|
|
#define nw 4
|
|
#define vl 32
|
|
|
|
const int n = 100;
|
|
|
|
#define DO_PRAGMA(x) _Pragma (#x) /* { dg-line pragma_loc } */
|
|
|
|
#define check_reduction(gwv_par, gwv_loop) \
|
|
{ \
|
|
s1 = 2; s2 = 5; \
|
|
DO_PRAGMA (acc parallel gwv_par copy (s1, s2)) /* { dg-line DO_PRAGMA_loc } */ \
|
|
DO_PRAGMA (acc loop gwv_loop reduction (+:s1, s2)) \
|
|
for (i = 0; i < n; i++) \
|
|
{ \
|
|
s1 = s1 + 3; \
|
|
s2 = s2 + 5; \
|
|
} \
|
|
\
|
|
if (s1 != v1 && s2 != v2) \
|
|
abort (); \
|
|
}
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
int s1 = 2, s2 = 5, v1 = 2, v2 = 5;
|
|
int i;
|
|
|
|
for (i = 0; i < n; i++)
|
|
{
|
|
v1 = v1 + 3;
|
|
v2 = v2 + 2;
|
|
}
|
|
|
|
check_reduction (num_gangs (ng), gang);
|
|
|
|
/* Nvptx targets require a vector_length or 32 in to allow spinlocks with
|
|
gangs. */
|
|
check_reduction (num_workers (nw) vector_length (vl), worker); /* { dg-line check_reduction_loc } */
|
|
/* { dg-warning "22:region is vector partitioned but does not contain vector partitioned code" "" { target *-*-* } pragma_loc }
|
|
{ dg-note "1:in expansion of macro 'DO_PRAGMA'" "" { target *-*-* xfail offloading_enabled } DO_PRAGMA_loc }
|
|
{ dg-note "3:in expansion of macro 'check_reduction'" "" { target *-*-* xfail offloading_enabled } check_reduction_loc }
|
|
TODO See PR101551 for 'offloading_enabled' XFAILs. */
|
|
check_reduction (vector_length (vl), vector);
|
|
check_reduction (num_gangs (ng) num_workers (nw) vector_length (vl), gang
|
|
worker vector);
|
|
|
|
return 0;
|
|
}
|