mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-01-10 22:55:19 +08:00
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.
23 lines
420 B
Fortran
23 lines
420 B
Fortran
! { dg-do run }
|
|
|
|
program main
|
|
use omp_lib
|
|
implicit none
|
|
|
|
!$omp task final (.true.)
|
|
if (.not. omp_in_final ()) &
|
|
error stop
|
|
!$omp task
|
|
if (.not. omp_in_final ()) &
|
|
error stop
|
|
!$omp target nowait
|
|
if (omp_in_final ()) &
|
|
error stop
|
|
!$omp end target
|
|
if (.not. omp_in_final ()) &
|
|
error stop
|
|
!$omp taskwait
|
|
!$omp end task
|
|
!$omp end task
|
|
end
|