mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-26 07:41:38 +01:00
26 lines
500 B
Fortran
26 lines
500 B
Fortran
! @@name: target_unstructured_data.1
|
|
! @@type: F-free
|
|
! @@compilable: yes
|
|
! @@linkable: no
|
|
! @@expect: success
|
|
! @@version: omp_4.5
|
|
module example
|
|
real(8), allocatable :: A(:)
|
|
|
|
contains
|
|
subroutine initialize(N)
|
|
integer :: N
|
|
|
|
allocate(A(N))
|
|
!$omp target enter data map(alloc:A)
|
|
|
|
end subroutine initialize
|
|
|
|
subroutine finalize()
|
|
|
|
!$omp target exit data map(delete:A)
|
|
deallocate(A)
|
|
|
|
end subroutine finalize
|
|
end module example
|