Commit af814dfa by Tobias Burnus

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
parent e1b58033
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> 2019-11-29 Martin Jambor <mjambor@suse.cz>
PR ipa/92476 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> 2019-11-29 Richard Sandiford <richard.sandiford@arm.com>
......
...@@ -9,7 +9,7 @@ program main ...@@ -9,7 +9,7 @@ program main
implicit none implicit none
integer :: i, j 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 real :: x(n) = 0, y(n), z
common /BLOCK/ a, b, c, j, d common /BLOCK/ a, b, c, j, d
common /KERNELS_BLOCK/ x, y, z common /KERNELS_BLOCK/ x, y, z
...@@ -35,5 +35,10 @@ end program main ...@@ -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\\(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-times "omp target oacc_kernels .*map\\(force_tofrom:c \\\[len: 4\\\]\\)" 1 "omplower" } }
! { dg-final { scan-tree-dump-not "map\\(.*:block\\)" "omplower" } } ! Expecting no mapping of un-referenced common-blocks variables
! { dg-final { scan-tree-dump-not "map\\(.*:kernels_block\\)" "omplower" } }
! { 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" } }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment