mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-23 22:31:22 +01:00
29 lines
538 B
Fortran
29 lines
538 B
Fortran
! @@name: tasking.9
|
|
! @@type: F-fixed
|
|
! @@operation: compile
|
|
! @@expect: rt-error
|
|
! @@version: omp_3.0
|
|
module example
|
|
contains
|
|
subroutine work
|
|
!$omp task
|
|
! Task 1
|
|
!$omp task
|
|
! Task 2
|
|
!$omp critical
|
|
! Critical region 1
|
|
! do work here
|
|
!$omp end critical
|
|
!$omp end task
|
|
!$omp critical
|
|
! Critical region 2
|
|
! Capture data for the following task
|
|
!$omp task
|
|
!Task 3
|
|
! do work here
|
|
!$omp end task
|
|
!$omp end critical
|
|
!$omp end task
|
|
end subroutine
|
|
end module
|