llvm/flang/test/Semantics/cuf06.cuf

! 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