mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-25 20:46:05 +00:00
3aba9264b3
Implement a selection of intrinsic module procedures that involve exceptions. - IEEE_GET_FLAG - IEEE_GET_HALTING_MODE - IEEE_GET_MODES - IEEE_GET_STATUS - IEEE_LOGB - [f23] IEEE_MAX, IEEE_MAX_MAG, IEEE_MAX_NUM, IEEE_MAX_NUM_MAG - [f23] IEEE_MIN, IEEE_MIN_MAG, IEEE_MIN_NUM, IEEE_MIN_NUM_MAG - IEEE_QUIET_EQ, IEEE_QUIET_GE, IEEE_QUIET_GT, - IEEE_QUIET_LE, IEEE_QUIET_LT, IEEE_QUIET_NE - IEEE_SET_FLAG - IEEE_SET_HALTING_MODE - IEEE_SET_MODES - IEEE_SET_STATUS - IEEE_SIGNALING_EQ, IEEE_SIGNALING_GE, IEEE_SIGNALING_GT, - IEEE_SIGNALING_LE, IEEE_SIGNALING_LT, IEEE_SIGNALING_NE - IEEE_SUPPORT_FLAG - IEEE_SUPPORT_HALTING
20 lines
708 B
Fortran
20 lines
708 B
Fortran
!===-- module/__cuda_builtins.f90 ------------------------------------------===!
|
|
!
|
|
! Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
! See https://llvm.org/LICENSE.txt for license information.
|
|
! SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
!
|
|
!===------------------------------------------------------------------------===!
|
|
|
|
! These CUDA predefined variables are automatically available in device
|
|
! subprograms.
|
|
|
|
module __CUDA_builtins
|
|
use __fortran_builtins, only: &
|
|
threadIdx => __builtin_threadIdx, &
|
|
blockDim => __builtin_blockDim, &
|
|
blockIdx => __builtin_blockIdx, &
|
|
gridDim => __builtin_gridDim, &
|
|
warpsize => __builtin_warpsize
|
|
end module
|