4ad7279392
Begin upstreaming of CUDA Fortran support in LLVM Flang.
This first patch implements parsing for CUDA Fortran syntax,
including:
- a new LanguageFeature enum value for CUDA Fortran
- driver change to enable that feature for *.cuf and *.CUF source files
- parse tree representation of CUDA Fortran syntax
- dumping and unparsing of the parse tree
- the actual parsers for CUDA Fortran syntax
- prescanning support for !@CUF and !$CUF
- basic sanity testing via unparsing and parse tree dumps
... along with any minimized changes elsewhere to make these
work, mostly no-op cases in common::visitors instances in
semantics and lowering to allow them to compile in the face
of new types in variant<> instances in the parse tree.
Because CUDA Fortran allows the kernel launch chevron syntax
("call foo<<<blocks, threads>>>()") only on CALL statements and
not on function references, the parse tree nodes for CallStmt,
FunctionReference, and their shared Call were rearranged a bit;
this caused a fair amount of one-line changes in many files.
More patches will follow that implement CUDA Fortran in the symbol
table and name resolution, and then semantic checking.
Differential Revision: https://reviews.llvm.org/D150159
42 lines
1.4 KiB
Plaintext
42 lines
1.4 KiB
Plaintext
! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
|
|
include "cuf-sanity-common"
|
|
!CHECK: SUBROUTINE atcuf
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: SUBROUTINE cudadefd
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: MODULE m
|
|
!CHECK: REAL, ALLOCATABLE, PINNED :: pa(:)
|
|
!CHECK: CONTAINS
|
|
!CHECK: ATTRIBUTES(DEVICE) SUBROUTINE devicesub
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: ATTRIBUTES(DEVICE) REAL FUNCTION devicefunc()
|
|
!CHECK: devicefunc=1._4
|
|
!CHECK: END FUNCTION
|
|
!CHECK: ATTRIBUTES(GLOBAL) SUBROUTINE globalsub
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: ATTRIBUTES(GRID_GLOBAL) SUBROUTINE gridglobalsub
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: ATTRIBUTES(HOST) SUBROUTINE hostsub
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: ATTRIBUTES(GLOBAL) LAUNCH_BOUNDS(1_4, 2_4) SUBROUTINE lbsub
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: ATTRIBUTES(GLOBAL) CLUSTER_DIMS(1_4, 2_4, 3_4) SUBROUTINE cdsub
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: ATTRIBUTES(DEVICE) SUBROUTINE attrs
|
|
!CHECK: REAL, DEVICE :: devx2
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: SUBROUTINE test
|
|
!CHECK: LOGICAL ispinned
|
|
!CHECK: !$CUF KERNEL DO (1_4) <<<*,*,STREAM=1_4>>>
|
|
!CHECK: DO j=1_4,10_4
|
|
!CHECK: END DO
|
|
!CHECK: !$CUF KERNEL DO <<<1_4,(2_4,3_4),STREAM=1_4>>>
|
|
!CHECK: DO j=1_4,10_4
|
|
!CHECK: END DO
|
|
!CHECK: CALL globalsub<<<1,2>>>
|
|
!CHECK: CALL globalsub<<<1,2,3>>>
|
|
!CHECK: CALL globalsub<<<1,2,3,4>>>
|
|
!CHECK: ALLOCATE(pa(32_4), STREAM=1_4, PINNED=ispinned)
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: END MODULE
|