blob: c181573cd7a1c1efe7a9a1cbb9ae5988e299d5ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
! Offloading test that tests that if(present(a)) compiles and executes without
! causing any compilation errors, primarily a regression test that does not
! yield interesting results.
! REQUIRES: flang, amdgpu
! RUN: %libomptarget-compile-fortran-run-and-check-generic
module mod
implicit none
contains
subroutine routine(a)
implicit none
real, dimension(:), optional :: a
integer :: i
!$omp target data if(present(a)) map(alloc:a)
do i = 1, 10
a(i) = i
end do
!$omp end target data
end subroutine routine
end module mod
program main
use mod
real :: a(10)
call routine(a)
print *, a
end program main
! CHECK: 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
|
