Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/c-c++-common/goacc/loop-2-parallel.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
/* See also "../../gfortran.dg/goacc/loop-2-parallel.f95". */ void P(void) { int i, j; #pragma acc parallel { #pragma acc loop auto for (i = 0; i < 10; i++) { } #pragma acc loop gang for (i = 0; i < 10; i++) { } #pragma acc loop gang(static:5) for (i = 0; i < 10; i++) { } #pragma acc loop gang(static:*) for (i = 0; i < 10; i++) { } #pragma acc loop gang // { dg-message "containing loop" } for (i = 0; i < 10; i++) { #pragma acc loop vector for (j = 1; j < 10; j++) { } #pragma acc loop worker for (j = 1; j < 10; j++) { } #pragma acc loop gang // { dg-error "inner loop uses same" } for (j = 1; j < 10; j++) { } } #pragma acc loop seq gang // { dg-error "'seq' overrides" } for (i = 0; i < 10; i++) { } #pragma acc loop worker for (i = 0; i < 10; i++) { } #pragma acc loop worker // { dg-message "containing loop" 2 } for (i = 0; i < 10; i++) { #pragma acc loop vector for (j = 1; j < 10; j++) { } #pragma acc loop worker // { dg-error "inner loop uses same" } for (j = 1; j < 10; j++) { } #pragma acc loop gang // { dg-error "incorrectly nested" } for (j = 1; j < 10; j++) { } } #pragma acc loop seq worker // { dg-error "'seq' overrides" } for (i = 0; i < 10; i++) { } #pragma acc loop gang worker for (i = 0; i < 10; i++) { } #pragma acc loop vector for (i = 0; i < 10; i++) { } for (i = 0; i < 10; i++) { } #pragma acc loop vector // { dg-message "containing loop" 3 } for (i = 0; i < 10; i++) { #pragma acc loop vector // { dg-error "inner loop uses same" } for (j = 1; j < 10; j++) { } #pragma acc loop worker // { dg-error "incorrectly nested" } for (j = 1; j < 10; j++) { } #pragma acc loop gang // { dg-error "incorrectly nested" } for (j = 1; j < 10; j++) { } } #pragma acc loop seq vector // { dg-error "'seq' overrides" } for (i = 0; i < 10; i++) { } #pragma acc loop gang vector for (i = 0; i < 10; i++) { } #pragma acc loop worker vector for (i = 0; i < 10; i++) { } #pragma acc loop auto for (i = 0; i < 10; i++) { } #pragma acc loop seq auto // { dg-error "'seq' overrides" } for (i = 0; i < 10; i++) { } #pragma acc loop gang auto // { dg-error "'auto' conflicts" } for (i = 0; i < 10; i++) { } #pragma acc loop worker auto // { dg-error "'auto' conflicts" } for (i = 0; i < 10; i++) { } #pragma acc loop vector auto // { dg-error "'auto' conflicts" } for (i = 0; i < 10; i++) { } } #pragma acc parallel loop auto for (i = 0; i < 10; i++) { } #pragma acc parallel loop gang for (i = 0; i < 10; i++) { } #pragma acc parallel loop gang(static:5) for (i = 0; i < 10; i++) { } #pragma acc parallel loop gang(static:*) for (i = 0; i < 10; i++) { } #pragma acc parallel loop seq gang // { dg-error "'seq' overrides" } for (i = 0; i < 10; i++) { } #pragma acc parallel loop worker for (i = 0; i < 10; i++) { } #pragma acc parallel loop seq worker // { dg-error "'seq' overrides" } for (i = 0; i < 10; i++) { } #pragma acc parallel loop gang worker for (i = 0; i < 10; i++) { } #pragma acc parallel loop vector for (i = 0; i < 10; i++) { } #pragma acc parallel loop seq vector // { dg-error "'seq' overrides" } for (i = 0; i < 10; i++) { } #pragma acc parallel loop gang vector for (i = 0; i < 10; i++) { } #pragma acc parallel loop worker vector for (i = 0; i < 10; i++) { } #pragma acc parallel loop auto for (i = 0; i < 10; i++) { } #pragma acc parallel loop seq auto // { dg-error "'seq' overrides" } for (i = 0; i < 10; i++) { } #pragma acc parallel loop gang auto // { dg-error "'auto' conflicts" } for (i = 0; i < 10; i++) { } #pragma acc parallel loop worker auto // { dg-error "'auto' conflicts" } for (i = 0; i < 10; i++) { } #pragma acc parallel loop vector auto // { dg-error "'auto' conflicts" } for (i = 0; i < 10; i++) { } }