From 553e364194ac50eee56bcb31bb25f033527605b8 Mon Sep 17 00:00:00 2001 From: Valentin Clement Date: Fri, 20 Nov 2020 20:17:18 -0500 Subject: [PATCH] [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 --- flang/test/Semantics/acc-clause-validity.f90 | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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 -- 2.7.4