16 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m3 use, intrinsic :: __fortran_builtins, only: __builtin_dim34 contains5 attributes(global) subroutine kernel6 end subroutine7 subroutine test8 call kernel<<< 1, 32 >>> ! ok9 call kernel<<< __builtin_dim3(1,1), __builtin_dim3(32,1,1) >>> ! ok10 !ERROR: Kernel launch grid parameter must be either integer or TYPE(dim3)11 call kernel<<< 1.d0, 32 >>>12 !ERROR: Kernel launch block parameter must be either integer or TYPE(dim3)13 call kernel<<< 1, "abc" >>>14 end15end module16