PATH: //opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/callback
FILE_BARU
CREATE
FOLDER_BARU
MKDIR
UPLOAD_FILE
GO
[ .. KEMBALI ]
📄 foo.f
↓
X
📄 gh17797.f90
↓
X
📄 gh18335.f90
↓
X
SAVING...
BERHASIL DIUBAH!
EDITING: gh18335.f90
! 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
SIMPAN PERUBAHAN