mirrors/llvm-project
0
0
Fork 0
mirror of https://github.com/llvm/llvm-project.git synced 2025-04-18 18:56:43 +00:00
Code Issues Projects Releases Wiki Activity

[flang][cuda] Add interface for sinpi, cospi and sincospi (#126123)

Browse Source 
Add interface for `sinpi`, `cospi` and `sincospi` and also expose
`sincosf`
This commit is contained in:
Valentin Clement (バレンタイン クレメン) 2025-02-06 13:12:41 -08:00 committed by GitHub
parent 1d319dfe7d
commit 98752ef893
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 52 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
flang/module/cudadevice.f90
View File

@ -384,34 +384,82 @@ implicit none
end function
end interface
public :: signbit
interface sincos
interface
attributes(device) subroutine sincosf(x, y, z) bind(c,name='__nv_sincosf')
real(4), value :: x
real(4), device :: y
real(4), device :: z
end subroutine
end interface
public :: sincosf
interface
attributes(device) subroutine sincos(x, y, z) bind(c,name='__nv_sincos')
real(8), value :: x
real(8), device :: y
real(8), device :: z
end subroutine
end interface
interface sincos
procedure :: sincosf
procedure :: sincos
end interface
public :: sincos
interface sincospi
interface
attributes(device) subroutine sincospif(x, y, z) bind(c,name='__nv_sincospif')
real(4), value :: x
real(4), device :: y
real(4), device :: z
end subroutine
end interface
public :: sincospif
interface
attributes(device) subroutine sincospi(x, y, z) bind(c,name='__nv_sincospi')
real(8), value :: x
real(8), device :: y
real(8), device :: z
end subroutine
end interface
interface sincospi
procedure :: sincospif
procedure :: sincospi
end interface
public :: sincospi
interface
attributes(device) real(4) function cospif(x) bind(c,name='__nv_cospif')
real(4), value :: x
end function
end interface
public :: cospif
interface
attributes(device) real(8) function cospi(x) bind(c,name='__nv_cospi')
real(8), value :: x
end function
end interface
interface cospi
procedure :: cospif
procedure :: cospi
end interface
public :: cospi
interface
attributes(device) real(4) function sinpif(x) bind(c,name='__nv_sinpif')
real(4), value :: x
end function
end interface
public :: sinpif
interface
attributes(device) real(8) function sinpi(x) bind(c,name='__nv_sinpi')
real(8), value :: x
end function
end interface
interface sinpi
procedure :: sinpif
procedure :: sinpi
end interface
public :: sinpi
interface mulhi
attributes(device) integer function __mulhi(i,j) bind(c,name='__nv_mulhi')