15 lines
545 B
Text
15 lines
545 B
Text
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
module m
|
|
use, intrinsic :: __fortran_builtins, only: __builtin_dim3
|
|
contains
|
|
attributes(global) subroutine kernel
|
|
end subroutine
|
|
subroutine test
|
|
call kernel<<< 1, 32 >>> ! ok
|
|
call kernel<<< __builtin_dim3(1,1), __builtin_dim3(32,1,1) >>> ! ok
|
|
!ERROR: Kernel launch grid parameter must be either integer or TYPE(dim3)
|
|
call kernel<<< 1.d0, 32 >>>
|
|
!ERROR: Kernel launch block parameter must be either integer or TYPE(dim3)
|
|
call kernel<<< 1, "abc" >>>
|
|
end
|
|
end module
|