Current Path: > > opt > cloudlinux > venv > lib64 > python3.11 > > site-packages > numpy > f2py > tests > src > callback
Operation : Linux premium131.web-hosting.com 4.18.0-553.44.1.lve.el8.x86_64 #1 SMP Thu Mar 13 14:29:12 UTC 2025 x86_64 Software : Apache Server IP : 162.0.232.56 | Your IP: 216.73.216.111 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