Commit ca4edc29 authored by Budiardja, Reuben's avatar Budiardja, Reuben
Browse files

Another test case.

parent 4359a0bd
program OpenMP_metadirective_simple
use omp_lib
implicit none
logical :: &
ID
integer :: &
iV
real, dimension ( : ), allocatable :: &
A, B, C
allocate ( A ( 1024 ), B ( 1024 ), C ( 1024 ) )
!$OMP begin metadirective &
!$OMP when ( implementation = { vendor("ibm") } &
!$OMP : target teams distribute parallel do )
do iV = 1, size ( A )
C ( iV ) = A ( iV ) + B ( iV )
end do
!$OMP end metadirective
if ( ID ) then
print*, 'Program runs on host'
else
print*, 'Program runs on device'
end if
end program OpenMP_metadirective_simple
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment