[flang][openacc] Add clause validity tests for the host_data directive

Add some clause validity tests for the host_data directive to avoid future regressions.

Reviewed By: kiranchandramohan

Differential Revision: https://reviews.llvm.org/D91889
This commit is contained in:
Valentin Clement 2020-11-20 20:17:18 -05:00 committed by clementval
parent 650fbd569a
commit 553e364194
1 changed files with 15 additions and 0 deletions

View File

@ -101,6 +101,21 @@ program openacc_clause_validity
!$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
!$acc host_data use_device(aa, bb) if(.true.) if_present
!$acc end host_data
!ERROR: At least one of DEFAULT_ASYNC, DEVICE_NUM, DEVICE_TYPE clause must appear on the SET directive
!$acc set