Commit b38ba58b by Tom de Vries Committed by Tom de Vries

Add goacc/kernels-alias-{3,4}.f95

2016-03-17  Tom de Vries  <tom@codesourcery.com>

	* gfortran.dg/goacc/kernels-alias-3.f95: New test.
	* gfortran.dg/goacc/kernels-alias-4.f95: New test.

From-SVN: r234292
parent 3a8b0de1
2016-03-17 Tom de Vries <tom@codesourcery.com>
* gfortran.dg/goacc/kernels-alias-3.f95: New test.
* gfortran.dg/goacc/kernels-alias-4.f95: New test.
2016-03-17 Richard Biener <rguenther@suse.de>
PR debug/70271
......
! { dg-additional-options "-O2" }
! { dg-additional-options "-fdump-tree-ealias-all" }
program main
implicit none
integer, target :: a
integer, pointer :: ptr
ptr => a
!$acc kernels pcopyin (a, ptr)
a = 0
ptr = 1
!$acc end kernels
end program main
! Only the omp_data_i related loads should be annotated with cliques.
! { dg-final { scan-tree-dump-times "clique 1 base 1" 2 "ealias" } }
! { dg-final { scan-tree-dump-times "(?n)clique .* base .*" 2 "ealias" } }
! { dg-additional-options "-O2" }
! { dg-additional-options "-fdump-tree-ealias-all" }
program main
implicit none
integer, parameter :: n = 2
integer, target, dimension (0:n-1) :: a
integer, pointer :: ptr(:)
ptr => a
!$acc kernels pcopyin (a, ptr(0:2))
a(0) = 0
ptr(0) = 1
!$acc end kernels
end program main
! Only the omp_data_i related loads should be annotated with cliques.
! { dg-final { scan-tree-dump-times "clique 1 base 1" 3 "ealias" } }
! { dg-final { scan-tree-dump-times "(?n)clique .* base .*" 3 "ealias" } }
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