Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/c-c++-common/goacc/routine-4.c @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* Test invalid intra-routine parallelism. */ /* See also variant 'routine-4-extern.c', moving the callees 'extern'. */ void gang (void); void worker (void); void vector (void); #pragma acc routine (gang) gang #pragma acc routine (worker) worker #pragma acc routine (vector) vector #pragma acc routine seq void seq (void) { gang (); /* { dg-error "routine call uses" } */ worker (); /* { dg-error "routine call uses" } */ vector (); /* { dg-error "routine call uses" } */ seq (); int red; #pragma acc loop reduction (+:red) // { dg-warning "insufficient partitioning" } for (int i = 0; i < 10; i++) red ++; #pragma acc loop gang reduction (+:red) // { dg-error "disallowed by containing routine" } for (int i = 0; i < 10; i++) red ++; #pragma acc loop worker reduction (+:red) // { dg-error "disallowed by containing routine" } for (int i = 0; i < 10; i++) red ++; #pragma acc loop vector reduction (+:red) // { dg-error "disallowed by containing routine" } for (int i = 0; i < 10; i++) red ++; } void vector (void) /* { dg-message "declared here" "1" } */ { gang (); /* { dg-error "routine call uses" } */ worker (); /* { dg-error "routine call uses" } */ vector (); seq (); int red; #pragma acc loop reduction (+:red) for (int i = 0; i < 10; i++) red ++; #pragma acc loop gang reduction (+:red) // { dg-error "disallowed by containing routine" } for (int i = 0; i < 10; i++) red ++; #pragma acc loop worker reduction (+:red) // { dg-error "disallowed by containing routine" } for (int i = 0; i < 10; i++) red ++; #pragma acc loop vector reduction (+:red) for (int i = 0; i < 10; i++) red ++; } void worker (void) /* { dg-message "declared here" "2" } */ { gang (); /* { dg-error "routine call uses" } */ worker (); vector (); seq (); int red; #pragma acc loop reduction (+:red) for (int i = 0; i < 10; i++) red ++; #pragma acc loop gang reduction (+:red) // { dg-error "disallowed by containing routine" } for (int i = 0; i < 10; i++) red ++; #pragma acc loop worker reduction (+:red) for (int i = 0; i < 10; i++) red ++; #pragma acc loop vector reduction (+:red) for (int i = 0; i < 10; i++) red ++; } void gang (void) /* { dg-message "declared here" "3" } */ { gang (); worker (); vector (); seq (); int red; #pragma acc loop reduction (+:red) for (int i = 0; i < 10; i++) red ++; #pragma acc loop gang reduction (+:red) for (int i = 0; i < 10; i++) red ++; #pragma acc loop worker reduction (+:red) for (int i = 0; i < 10; i++) red ++; #pragma acc loop vector reduction (+:red) for (int i = 0; i < 10; i++) red ++; }