OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix OpenACC directives nesting in 'gfortran.dg/goacc/common-block-1.f90', 'gfortran.dg/goacc/common-block-2.f90'

Browse Source 
gcc/testsuite/
	* gfortran.dg/goacc/common-block-1.f90: Fix OpenACC directives
	nesting.
	* gfortran.dg/goacc/common-block-2.f90: Likewise.

From-SVN: r278047
This commit is contained in:
Thomas Schwinge 2019-11-11 10:26:40 +01:00 committed by Thomas Schwinge
parent a2c26c5031
commit a5aeee56d8
3 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -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

3
gcc/testsuite/gfortran.dg/goacc/common-block-1.f90
View File

@ -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)

3
gcc/testsuite/gfortran.dg/goacc/common-block-2.f90
View File

@ -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" }