Error-Handling Macros for CUDA C/C++ and CUDA Fortran

cuda-error-macro.cpp

#define CUDA_CALL( call )               \
{                                       \
cudaError_t result = call;              \
if ( cudaSuccess != result )            \
    std::cerr << "CUDA error " << result << " in " << __FILE__ << ":" << __LINE__ << ": " << cudaGetErrorString( result ) << " (" << #call << ")" << std::endl;  \
}

/*
 Usage:
 
 CUDA_CALL( cudaMalloc( (void**)&ad, csize ); )
 */

cuda-error-macro.F90

#define CUDA_SUCCESS 0
#define CUDA_CALL__(e,fmt,c) \
e=c; \
if(e/=CUDA_SUCCESS) \
write(*,fmt) "CUDA Error ",e," in ",__FILE__,":",__LINE__,": ",trim(cudaGetErrorString(e))," (",#c,")"
#define CUDA_CALL(c) CUDA_CALL__(gpuStatus,fmt,c)

module debug
    character(len=27) :: fmt = "(A,I0,A,A,A,I0,A,A,A,A,A,A)"
    integer :: gpuStatus
end module debug

! Usage:
!
! use debug
! CUDA_CALL( cudaEventRecord(startEvent, 0) )