Current Path: > > opt > cloudlinux > venv > > > > > lib64 > python3.11 > > site-packages > numpy > f2py > tests > src > callback
Operation : Linux host59.registrar-servers.com 4.18.0-513.18.1.lve.2.el8.x86_64 #1 SMP Sat Mar 30 15:36:11 UTC 2024 x86_64 Software : Apache Server IP : 198.54.126.42 | Your IP: 216.73.216.8 Domains : 1034 Domain(s) Permission : [ 0755 ]
| Name | Type | Size | Last Modified | Actions |
|---|---|---|---|---|
| foo.f | File | 1254 bytes | April 17 2025 13:10:58. | |
| gh17797.f90 | File | 148 bytes | April 17 2025 13:10:58. | |
| gh18335.f90 | File | 506 bytes | April 17 2025 13:10:58. |
! When gh18335_workaround is defined as an extension,
! the issue cannot be reproduced.
!subroutine gh18335_workaround(f, y)
! implicit none
! external f
! integer(kind=1) :: y(1)
! call f(y)
!end subroutine gh18335_workaround
function gh18335(f) result (r)
implicit none
external f
integer(kind=1) :: y(1), r
y(1) = 123
call f(y)
r = y(1)
end function gh18335
SILENT KILLER Tool