diff options
author | Tobias Burnus <tobias@codesourcery.com> | 2019-11-29 13:49:44 +0000 |
---|---|---|
committer | Tobias Burnus <tobias@codesourcery.com> | 2019-11-29 13:49:44 +0000 |
commit | 3dd3863b4ad69bbc8214335790995de11b9c23f8 (patch) | |
tree | ca29ca22790e9093d1aaecf3e4ea7494d74a46d2 | |
parent | 122f141b245efd7f667a17428e45295ccf35f17c (diff) |
Fortran] OpenACC – permit common blocks in some clauses
* fortran.dg/goacc/common-block-3.f90: Check that unused common-block
variables do not get mapped.
Reviewed-by: Thomas Schwinge <thomas@codesourcery.com>
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@278843 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/common-block-3.f90 | 11 |
2 files changed, 14 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f7a173e15d2..a096fa635f1 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,7 +1,12 @@ +2019-11-29 Tobias Burnus <tobias@codesourcery.com> + + * fortran.dg/goacc/common-block-3.f90: Check that unused common-block + variables do not get mapped. + 2019-11-29 Martin Jambor <mjambor@suse.cz> PR ipa/92476 - * g++.dg/lto/pr92476_[01].C: New test. + * g++.dg/lto/pr92476_[01].C: New test. 2019-11-29 Richard Sandiford <richard.sandiford@arm.com> diff --git a/gcc/testsuite/gfortran.dg/goacc/common-block-3.f90 b/gcc/testsuite/gfortran.dg/goacc/common-block-3.f90 index 9032d9331f0..5defe2ea85d 100644 --- a/gcc/testsuite/gfortran.dg/goacc/common-block-3.f90 +++ b/gcc/testsuite/gfortran.dg/goacc/common-block-3.f90 @@ -9,7 +9,7 @@ program main implicit none integer :: i, j - real :: a(n) = 0, b(n) = 0, c, d + real :: a(n) = 0, b(n) = 0, c, d, e(n) real :: x(n) = 0, y(n), z common /BLOCK/ a, b, c, j, d common /KERNELS_BLOCK/ x, y, z @@ -35,5 +35,10 @@ end program main ! { dg-final { scan-tree-dump-times "omp target oacc_kernels .*map\\(tofrom:y \\\[len: 400\\\]\\\)" 1 "omplower" } } ! { dg-final { scan-tree-dump-times "omp target oacc_kernels .*map\\(force_tofrom:c \\\[len: 4\\\]\\)" 1 "omplower" } } -! { dg-final { scan-tree-dump-not "map\\(.*:block\\)" "omplower" } } -! { dg-final { scan-tree-dump-not "map\\(.*:kernels_block\\)" "omplower" } } +! Expecting no mapping of un-referenced common-blocks variables + +! { dg-final { scan-tree-dump-not "map\\(.*:block" "omplower" } } +! { dg-final { scan-tree-dump-not "map\\(.*:kernels_block" "omplower" } } +! { dg-final { scan-tree-dump-not "map\\(.*:d " "omplower" } } +! { dg-final { scan-tree-dump-not "map\\(.*:e " "omplower" } } +! { dg-final { scan-tree-dump-not "map\\(.*:z " "omplower" } } |