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
30
31
32
33
34
35
36
37
38
39
40
41
42
|
! RUN: %S/../test_errors.sh %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive:
! 2.8 host_data
program openacc_host_data_validity
implicit none
integer, parameter :: N = 256
real(8), dimension(N, N) :: aa, bb
logical :: ifCondition = .TRUE.
!ERROR: At least one of USE_DEVICE clause must appear on the HOST_DATA directive
!$acc host_data
!$acc end host_data
!$acc host_data use_device(aa)
!$acc end host_data
!$acc host_data use_device(aa) if(.true.)
!$acc end host_data
!$acc host_data use_device(aa) if(ifCondition)
!$acc end host_data
!$acc host_data use_device(aa, bb) if_present
!$acc end host_data
!ERROR: At most one IF_PRESENT clause can appear on the HOST_DATA directive
!$acc host_data use_device(aa, bb) if_present if_present
!$acc end host_data
!$acc host_data use_device(aa, bb) if(.true.) if_present
!$acc end host_data
!ERROR: At most one IF clause can appear on the HOST_DATA directive
!$acc host_data use_device(aa, bb) if(.true.) if(ifCondition)
!$acc end host_data
end program openacc_host_data_validity
|
