diff options
| author | Thomas Schwinge <thomas@codesourcery.com> | 2019-11-11 10:26:40 +0100 |
|---|---|---|
| committer | Thomas Schwinge <tschwinge@gcc.gnu.org> | 2019-11-11 10:26:40 +0100 |
| commit | a5aeee56d897cb1120bf4d2a61c8f62c45fecb5b (patch) | |
| tree | 5ebe38714a0e8e3c4dbc48676acc69e32a005c84 | |
| parent | a2c26c50310a336361d8129ecdd43d3001d6cb3a (diff) | |
| download | gcc-a5aeee56d897cb1120bf4d2a61c8f62c45fecb5b.zip gcc-a5aeee56d897cb1120bf4d2a61c8f62c45fecb5b.tar.gz gcc-a5aeee56d897cb1120bf4d2a61c8f62c45fecb5b.tar.bz2 | |
Fix OpenACC directives nesting in 'gfortran.dg/goacc/common-block-1.f90', 'gfortran.dg/goacc/common-block-2.f90'
gcc/testsuite/
* gfortran.dg/goacc/common-block-1.f90: Fix OpenACC directives
nesting.
* gfortran.dg/goacc/common-block-2.f90: Likewise.
From-SVN: r278047
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/common-block-1.f90 | 3 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/common-block-2.f90 | 3 |
3 files changed, 10 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index cc60856..f8e626b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2019-11-11 Thomas Schwinge <thomas@codesourcery.com> + + * gfortran.dg/goacc/common-block-1.f90: Fix OpenACC directives + nesting. + * gfortran.dg/goacc/common-block-2.f90: Likewise. + 2019-11-11 Jiufu Guo <guojiufu@linux.ibm.com> PR tree-optimization/88760 diff --git a/gcc/testsuite/gfortran.dg/goacc/common-block-1.f90 b/gcc/testsuite/gfortran.dg/goacc/common-block-1.f90 index ea43752..228637f 100644 --- a/gcc/testsuite/gfortran.dg/goacc/common-block-1.f90 +++ b/gcc/testsuite/gfortran.dg/goacc/common-block-1.f90 @@ -55,10 +55,11 @@ program test !$acc end parallel !$acc parallel firstprivate(/blockA/, /blockB/, e, v) + !$acc end parallel + !$acc update device(/blockA/) !$acc update self(/blockB/, v) !$acc update host(/blockA/, e, /blockB/) - !$acc end parallel !$acc enter data pcopyin(/blockA/, /blockB/, e, v) !$acc exit data delete(/blockA/, /blockB/, e, v) diff --git a/gcc/testsuite/gfortran.dg/goacc/common-block-2.f90 b/gcc/testsuite/gfortran.dg/goacc/common-block-2.f90 index 1ba9450..5d49f61 100644 --- a/gcc/testsuite/gfortran.dg/goacc/common-block-2.f90 +++ b/gcc/testsuite/gfortran.dg/goacc/common-block-2.f90 @@ -43,10 +43,11 @@ program test !$acc end parallel !$acc parallel firstprivate(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" } + !$acc end parallel + !$acc update device(b, /blockA/, x) ! { dg-error "Symbol .x. present on multiple clauses" } !$acc update self(z, /blockB/, v) ! { dg-error "Symbol .z. present on multiple clauses" } !$acc update host(/blockA/, c) ! { dg-error "Symbol .c. present on multiple clauses" } - !$acc end parallel !$acc enter data copyin(/blockB/, e, v, a, c, y) ! { dg-error "Symbol .y. present on multiple clauses" } !$acc exit data delete(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" } |