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

Added nested metadirective test.

parent ea1d7c19
program BeginEndMetadirectiveStaticNested
integer :: &
iV
real, dimension ( 32 ) :: &
A, B, C
!$OMP begin metadirective &
!$OMP when ( implementation = { vendor("ibm") } &
!$OMP : target teams distribute )
!$OMP begin metadirective &
!$OMP when ( implementation = { vendor("cray") } &
!$OMP : parallel do )
do iV = 1, size ( A )
C ( iV ) = A ( iV ) + B ( iV )
end do
!$OMP end metadirective
!$OMP end metadirective
!-- FIXME: verification needed
end program BeginEndMetadirectiveStaticNested
program MetadirectiveStaticNested
integer :: &
iV
real, dimension ( 32 ) :: &
A, B, C
!$OMP metadirective &
!$OMP when ( implementation = { vendor("ibm") } &
!$OMP : target teams distribute )
!$OMP metadirective &
!$OMP when ( implementation = { vendor("cray") } &
!$OMP : parallel do )
do iV = 1, size ( A )
C ( iV ) = A ( iV ) + B ( iV )
end do
!-- FIXME: verification needed
end program MetadirectiveStaticNested
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