ab8477af99
Fortranized testcases of commits r13-3257-ga58a965eb73 and r13-3258-g0ec4e93fb9f. libgomp/ChangeLog: * testsuite/libgomp.fortran/task-7.f90: New test. * testsuite/libgomp.fortran/task-8.f90: New test. * testsuite/libgomp.fortran/task-in-explicit-1.f90: New test. * testsuite/libgomp.fortran/task-in-explicit-2.f90: New test. * testsuite/libgomp.fortran/task-in-explicit-3.f90: New test. * testsuite/libgomp.fortran/task-reduction-17.f90: New test. * testsuite/libgomp.fortran/task-reduction-18.f90: New test.
15 lines
248 B
Fortran
15 lines
248 B
Fortran
! { dg-do run }
|
|
|
|
module m
|
|
integer :: a = 0
|
|
end module m
|
|
|
|
program main
|
|
!$omp task
|
|
!$omp taskgroup task_reduction (+: a)
|
|
!$omp task in_reduction (+: a)
|
|
a = a + 1
|
|
!$omp end task
|
|
!$omp end taskgroup
|
|
!$omp end task
|
|
end
|