Magic-Mirror/llvm-capstone
1
0
Fork 0
mirror of https://github.com/capstone-engine/llvm-capstone.git synced 2024-12-01 01:31:26 +00:00
Code Issues Actions 2 Packages Projects Releases Wiki Activity

Enable CUDA Fortran for bbc

Browse Source
This commit is contained in:
Zhen Wang 2023-07-24 11:28:27 -07:00
parent 4ce7c4a92a
commit c5abddbf29
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
flang/test/Driver/bbc-cuda-macro.cuf Normal file
View File

@ -0,0 +1,11 @@
! Test -fcuda option for bbc
! RUN: bbc -fcuda -o - %s | FileCheck %s
! CHECK-NOT: Unknown command line argument
program main
#if _CUDA
integer :: var = _CUDA
#endif
integer, device :: dvar
end program

9
flang/tools/bbc/bbc.cpp
View File

@ -190,6 +190,10 @@ static llvm::cl::opt<bool> useHLFIR("hlfir",
llvm::cl::desc("Lower to high level FIR"),
llvm::cl::init(false));
static llvm::cl::opt<bool> enableCUDA("fcuda",
llvm::cl::desc("enable CUDA Fortran"),
llvm::cl::init(false));
#define FLANG_EXCLUDE_CODEGEN
#include "flang/Tools/CLOptions.inc"
@ -412,6 +416,11 @@ int main(int argc, char **argv) {
options.predefinitions.emplace_back("_OPENACC", "202211");
}
// enable parsing of CUDA Fortran
if (enableCUDA) {
options.features.Enable(Fortran::common::LanguageFeature::CUDA);
}
Fortran::common::IntrinsicTypeDefaultKinds defaultKinds;
Fortran::parser::AllSources allSources;
Fortran::parser::AllCookedSources allCookedSources(allSources);