mirror of git://gcc.gnu.org/git/gcc.git
72 lines
1.6 KiB
C
72 lines
1.6 KiB
C
/* Test various aspects of clauses specifying compatible levels of parallelism
|
|
with the OpenACC 'routine' directive. The Fortran counterpart is
|
|
'../../gfortran.dg/goacc/routine-level-of-parallelism-1.f90'. */
|
|
|
|
#pragma acc routine gang
|
|
void g_1 (void)
|
|
{
|
|
}
|
|
#pragma acc routine (g_1) gang
|
|
#pragma acc routine (g_1) gang
|
|
|
|
|
|
extern void w_1 (void);
|
|
#pragma acc routine (w_1) worker
|
|
#pragma acc routine (w_1) worker
|
|
#pragma acc routine (w_1) worker
|
|
|
|
|
|
#pragma acc routine vector
|
|
extern void v_1 (void);
|
|
#pragma acc routine (v_1) vector
|
|
#pragma acc routine (v_1) vector
|
|
|
|
|
|
/* Also test the implicit seq clause. */
|
|
|
|
#pragma acc routine seq
|
|
extern void s_1_1 (void);
|
|
#pragma acc routine (s_1_1)
|
|
#pragma acc routine (s_1_1) seq
|
|
#pragma acc routine (s_1_1)
|
|
#pragma acc routine (s_1_1) seq
|
|
|
|
#pragma acc routine
|
|
extern void s_1_2 (void);
|
|
#pragma acc routine (s_1_2)
|
|
#pragma acc routine (s_1_2) seq
|
|
#pragma acc routine (s_1_2)
|
|
#pragma acc routine (s_1_2) seq
|
|
|
|
extern void s_2_1 (void);
|
|
#pragma acc routine (s_2_1) seq
|
|
#pragma acc routine (s_2_1)
|
|
#pragma acc routine (s_2_1) seq
|
|
#pragma acc routine (s_2_1)
|
|
#pragma acc routine (s_2_1) seq
|
|
|
|
extern void s_2_2 (void);
|
|
#pragma acc routine (s_2_2)
|
|
#pragma acc routine (s_2_2)
|
|
#pragma acc routine (s_2_2) seq
|
|
#pragma acc routine (s_2_2)
|
|
#pragma acc routine (s_2_2) seq
|
|
|
|
#pragma acc routine seq
|
|
void s_3_1 (void)
|
|
{
|
|
}
|
|
#pragma acc routine (s_3_1)
|
|
#pragma acc routine (s_3_1) seq
|
|
#pragma acc routine (s_3_1)
|
|
#pragma acc routine (s_3_1) seq
|
|
|
|
#pragma acc routine
|
|
void s_3_2 (void)
|
|
{
|
|
}
|
|
#pragma acc routine (s_3_2)
|
|
#pragma acc routine (s_3_2) seq
|
|
#pragma acc routine (s_3_2)
|
|
#pragma acc routine (s_3_2) seq
|