mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-19 01:00:52 +08:00
Code Issues Packages Projects Releases Wiki Activity

gfortran.dg/gomp/pr99928-*.f90: Use implicit none, remove one xfail

Browse Source 
gcc/testsuite/ChangeLog:

	* gfortran.dg/gomp/pr99928-1.f90: Add 'implicit none'.
	* gfortran.dg/gomp/pr99928-11.f90: Likewise.
	* gfortran.dg/gomp/pr99928-4.f90: Likewise.
	* gfortran.dg/gomp/pr99928-6.f90: Likewise.
	* gfortran.dg/gomp/pr99928-8.f90: Likewise.
	* gfortran.dg/gomp/pr99928-2.f90: Likewise. Add missing decl.
	* gfortran.dg/gomp/pr99928-5.f90: Add implicit none;
	fix loop-variable and remove xfail.
This commit is contained in:
Tobias Burnus 2021-06-04 13:10:57 +02:00
parent 9651794fff
commit 78b622e373
7 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/testsuite/gfortran.dg/gomp/pr99928-1.f90
View File

@ -3,6 +3,7 @@
! { dg-options "-fopenmp -fdump-tree-gimple" }
module m
implicit none
integer :: f00, f01, f02, f03, f04, f05, f06, f07, f08, f09
integer :: f12, f13, f14, f15, f16, f17, f18, f19
integer :: f20, f21, f22, f23, f24, f25, f26, f27, f28, f29

1
gcc/testsuite/gfortran.dg/gomp/pr99928-11.f90
View File

@ -3,6 +3,7 @@
! { dg-options "-fopenmp -fdump-tree-gimple" }
module m
implicit none
integer :: r00, r01, r02
contains

2
gcc/testsuite/gfortran.dg/gomp/pr99928-2.f90
View File

@ -3,12 +3,14 @@
! { dg-options "-fopenmp -fdump-tree-gimple" }
module m
implicit none
integer :: l00, l01, l02, l03, l04, l05, l06, l07
integer :: l10, l11, l12, l13, l14, l15, l16, l17, l18
contains
subroutine foo ()
integer :: i
! { dg-final { scan-tree-dump "omp distribute\[^\n\r]*lastprivate\\(l00\\)" "gimple" } }
! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*lastprivate\\(l00\\)" "gimple" } } ! FIXME: This should be on for instead.
! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*lastprivate\\(l00\\)" "gimple" } } ! FIXME.

1
gcc/testsuite/gfortran.dg/gomp/pr99928-4.f90
View File

@ -3,6 +3,7 @@
! { dg-options "-fopenmp -fdump-tree-gimple" }
module m
implicit none
integer :: l00, l01, l05, l06, l07, l08
contains

5
gcc/testsuite/gfortran.dg/gomp/pr99928-5.f90
View File

@ -3,6 +3,7 @@
! { dg-options "-fopenmp -fdump-tree-gimple" }
module m
implicit none
integer :: j00, j01, j02, j03, j04, j06, j07, j08, j09
integer :: j10
@ -85,9 +86,9 @@ subroutine bar ()
end do
! { dg-final { scan-tree-dump "omp taskloop\[^\n\r]*shared\\(j10\\)" "gimple" } } ! NOTE: This is implementation detail.
! { dg-final { scan-tree-dump "omp taskloop\[^\n\r]*lastprivate\\(j10\\)" "gimple" } }
! { dg-final { scan-tree-dump "omp simd\[^\n\r]*linear\\(j10:1\\)" "gimple" { xfail *-*-* } } }
! { dg-final { scan-tree-dump "omp simd\[^\n\r]*linear\\(j10:1\\)" "gimple" } }
!$omp taskloop simd linear (j10) default(none)
do j010 = 1, 64
do j01 = 1, 64
end do
! { dg-final { scan-tree-dump "omp teams\[^\n\r]*shared\\(j11\\)" "gimple" } }
! { dg-final { scan-tree-dump "omp distribute\[^\n\r]*lastprivate\\(j11\\)" "gimple" } }

1
gcc/testsuite/gfortran.dg/gomp/pr99928-6.f90
View File

@ -3,6 +3,7 @@
! { dg-options "-fopenmp -fdump-tree-gimple" }
module m
implicit none
integer :: j00, j01, j02, j03, j04, j06, j07, j08, j09
integer :: j10

1
gcc/testsuite/gfortran.dg/gomp/pr99928-8.f90
View File

@ -3,6 +3,7 @@
! { dg-options "-fopenmp -fdump-tree-gimple" }
module m
implicit none
integer :: r00, r01, r02, r03, r04, r05
integer :: r13, r14, r15, r16, r17, r18, r19
integer :: r20, r21, r22, r23, r24