Skip to content

R
riscv-gcc-1
Commit 04017685 by Thomas Schwinge Committed by Thomas Schwinge
Options

[PR90067, PR90114] Document Fortran OpenACC predetermined private status quo 

	gcc/testsuite/
	PR fortran/90067
	PR fortran/90114
	* gfortran.dg/goacc/private-1.f95: Remove file.
	* gfortran.dg/goacc/private-2.f95: Likewise.
	* gfortran.dg/goacc/private-predetermined-kernels-1.f95: New file.
	* gfortran.dg/goacc/private-predetermined-parallel-1.f95:
	Likewise.
	* gfortran.dg/goacc/private-predetermined-routine-1.f95: Likewise.

From-SVN: r270405
parent fc2b6858
Showing with 153 additions and 76 deletions
gcc/testsuite/ChangeLog
2019-04-17 Thomas Schwinge <thomas@codesourcery.com>
PR fortran/90067
PR fortran/90114
* gfortran.dg/goacc/private-1.f95: Remove file.
* gfortran.dg/goacc/private-2.f95: Likewise.
* gfortran.dg/goacc/private-predetermined-kernels-1.f95: New file.
* gfortran.dg/goacc/private-predetermined-parallel-1.f95:
Likewise.
* gfortran.dg/goacc/private-predetermined-routine-1.f95: Likewise.
2019-04-17 Jakub Jelinek <jakub@redhat.com>
PR target/89093
......
gcc/testsuite/gfortran.dg/goacc/private-1.f95 deleted 100644 → 0
! { dg-do compile }
! { dg-additional-options "-fdump-tree-omplower" }
! test for implicit private clauses in do loops
program test
implicit none
integer :: i, j, k
!$acc parallel
!$acc loop
do i = 1, 100
end do
!$acc end parallel
!$acc parallel
!$acc loop
do i = 1, 100
do j = 1, 100
end do
end do
!$acc end parallel
!$acc parallel
!$acc loop
do i = 1, 100
do j = 1, 100
do k = 1, 100
end do
end do
end do
!$acc end parallel
end program test
! { dg-final { scan-tree-dump-times "pragma omp target oacc_parallel" 3 "omplower" } }
! { dg-final { scan-tree-dump-times "private\\(i\\)" 3 "omplower" } }
! { dg-final { scan-tree-dump-times "private\\(j\\)" 2 "omplower" } }
! { dg-final { scan-tree-dump-times "private\\(k\\)" 1 "omplower" } }
gcc/testsuite/gfortran.dg/goacc/private-2.f95 deleted 100644 → 0
! { dg-do compile }
! test for implicit private clauses in do loops
program test
implicit none
integer :: i, j, k, a(10)
!$acc parallel
!$acc loop
do i = 1, 100
end do
!$acc end parallel
!$acc parallel
!$acc loop
do i = 1, 100
do j = 1, 100
end do
end do
!$acc end parallel
!$acc data copy(a)
if(mod(1,10) .eq. 0) write(*,'(i5)') i
do i = 1, 100
!$acc parallel
!$acc loop
do j = 1, 100
do k = 1, 100
end do
end do
!$acc end parallel
end do
!$acc end data
end program test
gcc/testsuite/gfortran.dg/goacc/private-predetermined-routine-1.f95 0 → 100644
! Predetermined 'private' clauses related to 'do' loops inside an OpenACC
! accelerator routine.
! { dg-additional-options "-fdump-tree-original -fdump-tree-gimple" }
! (The 'independent' clauses are used as end of directive markers in tree dump
! scanning.)
! The PR90114 XFAILs need to scan for the appropriate predetermined private
! level.
subroutine test
implicit none
integer :: i0_1
integer :: i0_2, j0_2
integer :: i1_s
integer :: i2_1_s, j2_1_s
integer :: i2_2_s, j2_2_s
integer :: i2_3_s, j2_3_s
integer :: i3_1_s, j3_1_s, k3_1_s
integer :: i3_2_s, j3_2_s, k3_2_s
integer :: i3_3_s, j3_3_s, k3_3_s
integer :: i3_4_s, j3_4_s, k3_4_s
integer :: i3_5_s, j3_5_s, k3_5_s
!$acc routine gang
! { dg-final { scan-tree-dump-times "private\\(i0_1\\)" 1 "original" { xfail *-*-* } } } ! PR90114
! { dg-final { scan-tree-dump-times "private\\(i0_1\\)" 1 "gimple" { xfail *-*-* } } } ! PR90114
do i0_1 = 1, 100
end do
! { dg-final { scan-tree-dump-times "private\\(i0_2\\)" 1 "original" { xfail *-*-* } } } ! PR90114
! { dg-final { scan-tree-dump-times "private\\(j0_2\\)" 1 "original" { xfail *-*-* } } } ! PR90114
! { dg-final { scan-tree-dump-times "private\\(i0_2\\)" 1 "gimple" { xfail *-*-* } } } ! PR90114
! { dg-final { scan-tree-dump-times "private\\(j0_2\\)" 1 "gimple" { xfail *-*-* } } } ! PR90114
do i0_2 = 1, 100
do j0_2 = 1, 100
end do
end do
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i1_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i1_s\\) independent" 1 "gimple" } }
do i1_s = 1, 100
end do
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i2_1_s\\) private\\(j2_1_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i2_1_s\\) private\\(j2_1_s\\) independent" 1 "gimple" } }
do i2_1_s = 1, 100
do j2_1_s = 1, 100
end do
end do
! { dg-final { scan-tree-dump-times "private\\(i2_2_s\\)" 1 "original" { xfail *-*-* } } } ! PR90114
! { dg-final { scan-tree-dump-times "private\\(i2_2_s\\)" 1 "gimple" { xfail *-*-* } } } ! PR90114
do i2_2_s = 1, 100
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(j2_2_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(j2_2_s\\) independent" 1 "gimple" } }
do j2_2_s = 1, 100
end do
end do
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i2_3_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i2_3_s\\) independent" 1 "gimple" } }
do i2_3_s = 1, 100
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(j2_3_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(j2_3_s\\) independent" 1 "gimple" } }
do j2_3_s = 1, 100
end do
end do
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i3_1_s\\) private\\(j3_1_s\\) private\\(k3_1_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i3_1_s\\) private\\(j3_1_s\\) private\\(k3_1_s\\) independent" 1 "gimple" } }
do i3_1_s = 1, 100
do j3_1_s = 1, 100
do k3_1_s = 1, 100
end do
end do
end do
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i3_2_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i3_2_s\\) independent" 1 "gimple" } }
do i3_2_s = 1, 100
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(j3_2_s\\) private\\(k3_2_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(j3_2_s\\) private\\(k3_2_s\\) independent" 1 "gimple" } }
do j3_2_s = 1, 100
do k3_2_s = 1, 100
end do
end do
end do
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i3_3_s\\) private\\(j3_3_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i3_3_s\\) private\\(j3_3_s\\) independent" 1 "gimple" } }
do i3_3_s = 1, 100
do j3_3_s = 1, 100
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(k3_3_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(k3_3_s\\) independent" 1 "gimple" } }
do k3_3_s = 1, 100
end do
end do
end do
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i3_4_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(i3_4_s\\) independent" 1 "gimple" } }
do i3_4_s = 1, 100
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(j3_4_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(j3_4_s\\) independent" 1 "gimple" } }
do j3_4_s = 1, 100
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(k3_4_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(k3_4_s\\) independent" 1 "gimple" } }
do k3_4_s = 1, 100
end do
end do
end do
! { dg-final { scan-tree-dump-times "private\\(i3_5_s\\)" 1 "original" { xfail *-*-* } } } ! PR90114
! { dg-final { scan-tree-dump-times "private\\(i3_5_s\\)" 1 "gimple" { xfail *-*-* } } } ! PR90114
do i3_5_s = 1, 100
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(j3_5_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(j3_5_s\\) independent" 1 "gimple" } }
do j3_5_s = 1, 100
!$acc loop independent
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(k3_5_s\\) independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma acc loop private\\(k3_5_s\\) independent" 1 "gimple" } }
do k3_5_s = 1, 100
end do
end do
end do
end subroutine test
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