/
opt
/
imh-python
/
lib
/
python3.9
/
site-packages
/
numpy
/
f2py
/
tests
/
src
/
callback
/
/opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/src/callback
mkdir
upload
Name
Size
Mode
Actions
foo.f
1254
0644
edit
dl
rm
gh17797.f90
148
0644
edit
dl
rm
gh18335.f90
506
0644
edit
dl
rm
Edit:
/opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/src/callback/gh18335.f90
(506B)
! 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
Save
cmd:
run