diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2019-11-29 14:49:44 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2019-11-29 14:49:44 +0100 |
| commit | af814dfa9b6e3e598bbcf2ee4615aae0e886fef4 (patch) | |
| tree | ca29ca22790e9093d1aaecf3e4ea7494d74a46d2 /gcc | |
| parent | e1b580335491398ed4f74a7db0c64704a0432804 (diff) | |
| download | gcc-af814dfa9b6e3e598bbcf2ee4615aae0e886fef4.zip gcc-af814dfa9b6e3e598bbcf2ee4615aae0e886fef4.tar.gz gcc-af814dfa9b6e3e598bbcf2ee4615aae0e886fef4.tar.bz2 | |
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>
From-SVN: r278843
Diffstat (limited to 'gcc')
| -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 f7a173e..a096fa6 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 9032d93..5defe2e 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" } } |