From: Valentin Clement <clementval@gmail.com>
Date: Sat, 21 Nov 2020 01:17:18 +0000 (-0500)
Subject: [flang][openacc] Add clause validity tests for the host_data directive
X-Git-Tag: llvmorg-13-init~5466
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=553e364194ac50eee56bcb31bb25f033527605b8;p=platform%2Fupstream%2Fllvm.git

[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
---

diff --git a/flang/test/Semantics/acc-clause-validity.f90 b/flang/test/Semantics/acc-clause-validity.f90
index 7b3a56e..da053d5 100644
--- a/flang/test/Semantics/acc-clause-validity.f90
+++ b/flang/test/Semantics/acc-clause-validity.f90
@@ -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