| //===- llvm/unittest/Frontend/OpenACCTest.cpp - OpenACC Frontend tests ----===// |
| // |
| // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. |
| // See https://llvm.org/LICENSE.txt for license information. |
| // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception |
| // |
| //===----------------------------------------------------------------------===// |
| |
| #include "llvm/ADT/ArrayRef.h" |
| #include "llvm/ADT/SmallSet.h" |
| #include "llvm/ADT/SmallVector.h" |
| #include "llvm/Frontend/OpenACC/ACC.h.inc" |
| #include "gtest/gtest.h" |
| |
| using namespace llvm; |
| using namespace acc; |
| |
| namespace { |
| |
| static const Clause AllClauses[] = {ACCC_unknown, |
| ACCC_async, |
| ACCC_attach, |
| ACCC_auto, |
| ACCC_bind, |
| ACCC_capture, |
| ACCC_collapse, |
| ACCC_copy, |
| ACCC_copyin, |
| ACCC_copyout, |
| ACCC_create, |
| ACCC_default, |
| ACCC_default_async, |
| ACCC_delete, |
| ACCC_detach, |
| ACCC_device, |
| ACCC_device_num, |
| ACCC_deviceptr, |
| ACCC_device_resident, |
| ACCC_device_type, |
| ACCC_finalize, |
| ACCC_firstprivate, |
| ACCC_gang, |
| ACCC_host, |
| ACCC_if, |
| ACCC_if_present, |
| ACCC_independent, |
| ACCC_link, |
| ACCC_no_create, |
| ACCC_nohost, |
| ACCC_num_gangs, |
| ACCC_num_workers, |
| ACCC_present, |
| ACCC_private, |
| ACCC_read, |
| ACCC_reduction, |
| ACCC_self, |
| ACCC_seq, |
| ACCC_tile, |
| ACCC_unknown, |
| ACCC_use_device, |
| ACCC_vector, |
| ACCC_vector_length, |
| ACCC_wait, |
| ACCC_worker, |
| ACCC_write}; |
| |
| TEST(OpenACCTest, DirectiveHelpers) { |
| EXPECT_EQ(getOpenACCDirectiveKind(""), ACCD_unknown); |
| EXPECT_EQ(getOpenACCDirectiveKind("dummy"), ACCD_unknown); |
| EXPECT_EQ(getOpenACCDirectiveKind("atomic"), ACCD_atomic); |
| EXPECT_EQ(getOpenACCDirectiveKind("cache"), ACCD_cache); |
| EXPECT_EQ(getOpenACCDirectiveKind("data"), ACCD_data); |
| EXPECT_EQ(getOpenACCDirectiveKind("declare"), ACCD_declare); |
| EXPECT_EQ(getOpenACCDirectiveKind("enter data"), ACCD_enter_data); |
| EXPECT_EQ(getOpenACCDirectiveKind("exit data"), ACCD_exit_data); |
| EXPECT_EQ(getOpenACCDirectiveKind("host_data"), ACCD_host_data); |
| EXPECT_EQ(getOpenACCDirectiveKind("init"), ACCD_init); |
| EXPECT_EQ(getOpenACCDirectiveKind("kernels"), ACCD_kernels); |
| EXPECT_EQ(getOpenACCDirectiveKind("kernels loop"), ACCD_kernels_loop); |
| EXPECT_EQ(getOpenACCDirectiveKind("loop"), ACCD_loop); |
| EXPECT_EQ(getOpenACCDirectiveKind("parallel"), ACCD_parallel); |
| EXPECT_EQ(getOpenACCDirectiveKind("parallel loop"), ACCD_parallel_loop); |
| EXPECT_EQ(getOpenACCDirectiveKind("routine"), ACCD_routine); |
| EXPECT_EQ(getOpenACCDirectiveKind("serial"), ACCD_serial); |
| EXPECT_EQ(getOpenACCDirectiveKind("serial loop"), ACCD_serial_loop); |
| EXPECT_EQ(getOpenACCDirectiveKind("set"), ACCD_set); |
| EXPECT_EQ(getOpenACCDirectiveKind("shutdown"), ACCD_shutdown); |
| EXPECT_EQ(getOpenACCDirectiveKind("unknown"), ACCD_unknown); |
| EXPECT_EQ(getOpenACCDirectiveKind("update"), ACCD_update); |
| EXPECT_EQ(getOpenACCDirectiveKind("wait"), ACCD_wait); |
| |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_atomic), "atomic"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_cache), "cache"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_data), "data"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_declare), "declare"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_enter_data), "enter data"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_exit_data), "exit data"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_host_data), "host_data"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_init), "init"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_kernels), "kernels"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_kernels_loop), "kernels loop"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_loop), "loop"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_parallel), "parallel"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_parallel_loop), "parallel loop"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_routine), "routine"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_serial), "serial"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_serial_loop), "serial loop"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_set), "set"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_shutdown), "shutdown"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_unknown), "unknown"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_update), "update"); |
| EXPECT_EQ(getOpenACCDirectiveName(ACCD_wait), "wait"); |
| } |
| |
| TEST(OpenACCTest, ClauseHelpers) { |
| EXPECT_EQ(getOpenACCClauseKind(""), ACCC_unknown); |
| EXPECT_EQ(getOpenACCClauseKind("dummy"), ACCC_unknown); |
| EXPECT_EQ(getOpenACCClauseKind("async"), ACCC_async); |
| EXPECT_EQ(getOpenACCClauseKind("attach"), ACCC_attach); |
| EXPECT_EQ(getOpenACCClauseKind("auto"), ACCC_auto); |
| EXPECT_EQ(getOpenACCClauseKind("bind"), ACCC_bind); |
| EXPECT_EQ(getOpenACCClauseKind("capture"), ACCC_capture); |
| EXPECT_EQ(getOpenACCClauseKind("collapse"), ACCC_collapse); |
| EXPECT_EQ(getOpenACCClauseKind("copy"), ACCC_copy); |
| EXPECT_EQ(getOpenACCClauseKind("copyin"), ACCC_copyin); |
| EXPECT_EQ(getOpenACCClauseKind("copyout"), ACCC_copyout); |
| EXPECT_EQ(getOpenACCClauseKind("create"), ACCC_create); |
| EXPECT_EQ(getOpenACCClauseKind("default"), ACCC_default); |
| EXPECT_EQ(getOpenACCClauseKind("default_async"), ACCC_default_async); |
| EXPECT_EQ(getOpenACCClauseKind("delete"), ACCC_delete); |
| EXPECT_EQ(getOpenACCClauseKind("detach"), ACCC_detach); |
| EXPECT_EQ(getOpenACCClauseKind("device"), ACCC_device); |
| EXPECT_EQ(getOpenACCClauseKind("device_num"), ACCC_device_num); |
| EXPECT_EQ(getOpenACCClauseKind("deviceptr"), ACCC_deviceptr); |
| EXPECT_EQ(getOpenACCClauseKind("device_resident"), ACCC_device_resident); |
| EXPECT_EQ(getOpenACCClauseKind("device_type"), ACCC_device_type); |
| EXPECT_EQ(getOpenACCClauseKind("finalize"), ACCC_finalize); |
| EXPECT_EQ(getOpenACCClauseKind("firstprivate"), ACCC_firstprivate); |
| EXPECT_EQ(getOpenACCClauseKind("gang"), ACCC_gang); |
| EXPECT_EQ(getOpenACCClauseKind("host"), ACCC_host); |
| EXPECT_EQ(getOpenACCClauseKind("if"), ACCC_if); |
| EXPECT_EQ(getOpenACCClauseKind("if_present"), ACCC_if_present); |
| EXPECT_EQ(getOpenACCClauseKind("independent"), ACCC_independent); |
| EXPECT_EQ(getOpenACCClauseKind("link"), ACCC_link); |
| EXPECT_EQ(getOpenACCClauseKind("no_create"), ACCC_no_create); |
| EXPECT_EQ(getOpenACCClauseKind("nohost"), ACCC_nohost); |
| EXPECT_EQ(getOpenACCClauseKind("num_gangs"), ACCC_num_gangs); |
| EXPECT_EQ(getOpenACCClauseKind("num_workers"), ACCC_num_workers); |
| EXPECT_EQ(getOpenACCClauseKind("present"), ACCC_present); |
| EXPECT_EQ(getOpenACCClauseKind("private"), ACCC_private); |
| EXPECT_EQ(getOpenACCClauseKind("read"), ACCC_read); |
| EXPECT_EQ(getOpenACCClauseKind("reduction"), ACCC_reduction); |
| EXPECT_EQ(getOpenACCClauseKind("self"), ACCC_self); |
| EXPECT_EQ(getOpenACCClauseKind("seq"), ACCC_seq); |
| EXPECT_EQ(getOpenACCClauseKind("tile"), ACCC_tile); |
| EXPECT_EQ(getOpenACCClauseKind("unknown"), ACCC_unknown); |
| EXPECT_EQ(getOpenACCClauseKind("use_device"), ACCC_use_device); |
| EXPECT_EQ(getOpenACCClauseKind("vector"), ACCC_vector); |
| EXPECT_EQ(getOpenACCClauseKind("vector_length"), ACCC_vector_length); |
| EXPECT_EQ(getOpenACCClauseKind("wait"), ACCC_wait); |
| EXPECT_EQ(getOpenACCClauseKind("worker"), ACCC_worker); |
| EXPECT_EQ(getOpenACCClauseKind("write"), ACCC_write); |
| |
| EXPECT_EQ(getOpenACCClauseName(ACCC_async), "async"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_attach), "attach"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_auto), "auto"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_bind), "bind"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_capture), "capture"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_collapse), "collapse"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_copy), "copy"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_copyin), "copyin"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_copyout), "copyout"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_create), "create"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_default), "default"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_default_async), "default_async"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_delete), "delete"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_detach), "detach"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_device), "device"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_device_num), "device_num"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_deviceptr), "deviceptr"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_device_resident), "device_resident"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_device_type), "device_type"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_finalize), "finalize"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_firstprivate), "firstprivate"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_gang), "gang"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_host), "host"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_if), "if"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_if_present), "if_present"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_independent), "independent"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_link), "link"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_no_create), "no_create"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_nohost), "nohost"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_num_gangs), "num_gangs"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_num_workers), "num_workers"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_present), "present"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_private), "private"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_read), "read"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_reduction), "reduction"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_self), "self"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_seq), "seq"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_tile), "tile"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_unknown), "unknown"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_use_device), "use_device"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_vector), "vector"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_vector_length), "vector_length"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_wait), "wait"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_worker), "worker"); |
| EXPECT_EQ(getOpenACCClauseName(ACCC_write), "write"); |
| } |
| |
| static void expectAllowedClauses(Directive Dir, unsigned Version, |
| const ArrayRef<Clause> &AllowedClauses) { |
| SmallSet<Clause, 30> AllowedClausesSet; |
| for (Clause Cl : AllowedClauses) { |
| EXPECT_TRUE(isAllowedClauseForDirective(Dir, Cl, Version)); |
| AllowedClausesSet.insert(Cl); |
| } |
| |
| for (Clause Cl : AllClauses) { |
| if (!AllowedClausesSet.contains(Cl)) { |
| EXPECT_FALSE(isAllowedClauseForDirective(Dir, Cl, Version)); |
| } |
| } |
| } |
| |
| TEST(OpenACCTest, AllowedClause) { |
| expectAllowedClauses(ACCD_atomic, 3, {}); |
| expectAllowedClauses(ACCD_cache, 3, {}); |
| expectAllowedClauses(ACCD_unknown, 3, {}); |
| expectAllowedClauses(ACCD_parallel, 0, {}); // Version starts at 1 |
| |
| expectAllowedClauses(ACCD_data, 3, |
| {ACCC_if, ACCC_attach, ACCC_copy, ACCC_copyin, |
| ACCC_copyout, ACCC_create, ACCC_default, ACCC_deviceptr, |
| ACCC_no_create, ACCC_present}); |
| |
| expectAllowedClauses(ACCD_declare, 3, |
| {ACCC_copy, ACCC_copyin, ACCC_copyout, ACCC_create, |
| ACCC_present, ACCC_deviceptr, ACCC_device_resident, |
| ACCC_link}); |
| |
| expectAllowedClauses( |
| ACCD_enter_data, 3, |
| {ACCC_async, ACCC_if, ACCC_wait, ACCC_attach, ACCC_create, ACCC_copyin}); |
| |
| expectAllowedClauses(ACCD_exit_data, 3, |
| {ACCC_async, ACCC_if, ACCC_wait, ACCC_finalize, |
| ACCC_copyout, ACCC_delete, ACCC_detach}); |
| |
| expectAllowedClauses(ACCD_host_data, 3, |
| {ACCC_if, ACCC_if_present, ACCC_use_device}); |
| |
| expectAllowedClauses(ACCD_init, 3, |
| {ACCC_device_num, ACCC_device_type, ACCC_if}); |
| |
| expectAllowedClauses(ACCD_kernels, 3, |
| {ACCC_attach, ACCC_copy, ACCC_copyin, ACCC_copyout, |
| ACCC_create, ACCC_device_type, ACCC_no_create, |
| ACCC_present, ACCC_deviceptr, ACCC_async, ACCC_default, |
| ACCC_if, ACCC_num_gangs, ACCC_num_workers, ACCC_self, |
| ACCC_vector_length, ACCC_wait}); |
| |
| expectAllowedClauses( |
| ACCD_kernels_loop, 3, |
| {ACCC_copy, ACCC_copyin, ACCC_copyout, ACCC_create, |
| ACCC_device_type, ACCC_no_create, ACCC_present, ACCC_private, |
| ACCC_deviceptr, ACCC_attach, ACCC_async, ACCC_collapse, |
| ACCC_default, ACCC_gang, ACCC_if, ACCC_num_gangs, |
| ACCC_num_workers, ACCC_reduction, ACCC_self, ACCC_tile, |
| ACCC_vector, ACCC_vector_length, ACCC_wait, ACCC_worker, |
| ACCC_auto, ACCC_independent, ACCC_seq}); |
| |
| expectAllowedClauses(ACCD_loop, 3, |
| {ACCC_device_type, ACCC_private, ACCC_collapse, |
| ACCC_gang, ACCC_reduction, ACCC_tile, ACCC_vector, |
| ACCC_worker, ACCC_auto, ACCC_independent, ACCC_seq}); |
| |
| expectAllowedClauses(ACCD_parallel, 3, |
| {ACCC_async, ACCC_wait, ACCC_num_gangs, |
| ACCC_num_workers, ACCC_vector_length, ACCC_device_type, |
| ACCC_if, ACCC_self, ACCC_reduction, |
| ACCC_copy, ACCC_copyin, ACCC_copyout, |
| ACCC_create, ACCC_no_create, ACCC_present, |
| ACCC_deviceptr, ACCC_attach, ACCC_private, |
| ACCC_firstprivate, ACCC_default}); |
| |
| expectAllowedClauses( |
| ACCD_parallel_loop, 3, |
| {ACCC_attach, ACCC_copy, ACCC_copyin, ACCC_copyout, |
| ACCC_create, ACCC_deviceptr, ACCC_device_type, ACCC_firstprivate, |
| ACCC_no_create, ACCC_present, ACCC_private, ACCC_tile, |
| ACCC_wait, ACCC_async, ACCC_collapse, ACCC_default, |
| ACCC_gang, ACCC_if, ACCC_num_gangs, ACCC_num_workers, |
| ACCC_reduction, ACCC_self, ACCC_vector, ACCC_vector_length, |
| ACCC_worker, ACCC_auto, ACCC_independent, ACCC_seq}); |
| |
| expectAllowedClauses(ACCD_routine, 3, |
| {ACCC_bind, ACCC_device_type, ACCC_nohost, ACCC_gang, |
| ACCC_seq, ACCC_vector, ACCC_worker}); |
| |
| expectAllowedClauses(ACCD_serial, 3, |
| {ACCC_attach, ACCC_copy, ACCC_copyin, ACCC_copyout, |
| ACCC_create, ACCC_deviceptr, ACCC_device_type, |
| ACCC_firstprivate, ACCC_no_create, ACCC_present, |
| ACCC_private, ACCC_wait, ACCC_async, ACCC_default, |
| ACCC_if, ACCC_reduction, ACCC_self}); |
| |
| expectAllowedClauses( |
| ACCD_serial_loop, 3, |
| {ACCC_attach, ACCC_copy, ACCC_copyin, ACCC_copyout, |
| ACCC_create, ACCC_deviceptr, ACCC_device_type, ACCC_firstprivate, |
| ACCC_no_create, ACCC_present, ACCC_private, ACCC_wait, |
| ACCC_async, ACCC_collapse, ACCC_default, ACCC_gang, |
| ACCC_if, ACCC_reduction, ACCC_self, ACCC_tile, |
| ACCC_vector, ACCC_worker, ACCC_auto, ACCC_independent, |
| ACCC_seq}); |
| |
| expectAllowedClauses( |
| ACCD_set, 3, |
| {ACCC_default_async, ACCC_device_num, ACCC_device_type, ACCC_if}); |
| |
| expectAllowedClauses(ACCD_shutdown, 3, |
| {ACCC_device_num, ACCC_device_type, ACCC_if}); |
| |
| expectAllowedClauses(ACCD_update, 3, |
| {ACCC_async, ACCC_wait, ACCC_device_type, ACCC_if, |
| ACCC_if_present, ACCC_self, ACCC_host, ACCC_device}); |
| |
| expectAllowedClauses(ACCD_wait, 3, {ACCC_async, ACCC_if}); |
| } |
| |
| } // namespace |
