084dc63a02
gcc/fortran/ChangeLog: * gfortran.h (gfc_omp_namelist): Add lastprivate_conditional. * openmp.c (gfc_match_omp_clauses): Handle 'conditional:' modifier of 'lastprivate'. * trans-openmp.c (gfc_omp_clause_default_ctor): Don't assert on OMP_CLAUSE__CONDTEMP_ and other OMP_*TEMP_. (gfc_trans_omp_variable_list): Handle lastprivate_conditional. gcc/testsuite/ChangeLog: * gfortran.dg/gomp/lastprivate-conditional-1.f90: New test. * gfortran.dg/gomp/lastprivate-conditional-2.f90: New test. * gfortran.dg/gomp/lastprivate-conditional-3.f90: New test. * gfortran.dg/gomp/lastprivate-conditional-4.f90: New test. * gfortran.dg/gomp/lastprivate-conditional-5.f90: New test.
83 lines
2.3 KiB
Fortran
83 lines
2.3 KiB
Fortran
subroutine foo (p)
|
|
implicit none
|
|
logical :: p(:)
|
|
integer a, b, c, d, e, f, g, h;
|
|
integer :: i
|
|
a = -1; b = -1; c = -1; d = -1; e = -1; f = -1; g = -1; h = -1
|
|
!$omp teams
|
|
!$omp distribute lastprivate (conditional: a) ! { dg-error "conditional 'lastprivate' clause on 'distribute' construct" }
|
|
do i = 1, 32
|
|
if (p(i)) &
|
|
a = i
|
|
end do
|
|
!$omp distribute simd lastprivate (conditional: b) ! { dg-error "conditional 'lastprivate' clause on 'distribute' construct" }
|
|
do i = 1, 32
|
|
if (p(i)) &
|
|
b = i
|
|
end do
|
|
!$omp distribute parallel do lastprivate (conditional: c) ! { dg-error "conditional 'lastprivate' clause on 'distribute' construct" }
|
|
do i = 1, 32
|
|
if (p(i)) &
|
|
c = i
|
|
end do
|
|
!$omp distribute parallel do simd lastprivate (conditional: d) ! { dg-error "conditional 'lastprivate' clause on 'distribute' construct" }
|
|
do i = 1, 32
|
|
if (p(i)) &
|
|
d = i
|
|
end do
|
|
!$omp end teams
|
|
|
|
!$omp teams distribute parallel do lastprivate (conditional: e) ! { dg-error "conditional 'lastprivate' clause on 'distribute' construct" }
|
|
do i = 1, 32
|
|
if (p(i)) &
|
|
e = i
|
|
end do
|
|
|
|
!$omp parallel
|
|
!$omp master
|
|
!$omp taskloop lastprivate (conditional: f) ! { dg-error "conditional 'lastprivate' clause on 'taskloop' construct" }
|
|
do i = 1, 32
|
|
if (p(i)) &
|
|
f = i
|
|
end do
|
|
! !$omp master taskloop simd lastprivate (conditional: g) ! { dg!error "conditional 'lastprivate' clause on 'taskloop' construct" }
|
|
! do i = 1, 32
|
|
! if (p(i)) &
|
|
! g = i
|
|
! end do
|
|
!$omp end master
|
|
!$omp end parallel
|
|
|
|
! !$omp parallel master taskloop simd lastprivate (conditional: h) ! { dg!error "conditional 'lastprivate' clause on 'taskloop' construct" }
|
|
! do i = 1, 32
|
|
! if (p(i)) &
|
|
! h = i
|
|
! end do
|
|
! !$omp end parallel master taskloop simd
|
|
end subroutine
|
|
|
|
!struct S { int a, b; };
|
|
|
|
subroutine bar (p)
|
|
implicit none
|
|
logical :: p(:)
|
|
type s_t
|
|
integer :: a, b
|
|
end type s_t
|
|
type(s_t) s, t
|
|
integer i
|
|
s = s_t(-1, -1)
|
|
t = s_t( 1, 2)
|
|
!$omp parallel do lastprivate (conditional: s) ! { dg-error "non-scalar variable 's' in conditional 'lastprivate' clause" }
|
|
do i = 1, 32
|
|
if (p(i)) then
|
|
block
|
|
type(s_t) u
|
|
u = t
|
|
u%b = i
|
|
s = u
|
|
end block
|
|
end if
|
|
end do
|
|
end subroutine
|