Sindbad~EG File Manager

Current Path : /proc/2568807/root/usr/local/lib/python3.12/site-packages/numpy/f2py/tests/src/string/
Upload File :
Current File : //proc/2568807/root/usr/local/lib/python3.12/site-packages/numpy/f2py/tests/src/string/gh24662.f90

subroutine string_inout_optional(output)
    implicit none
    character*(32), optional, intent(inout) :: output
    if (present(output)) then
      output="output string"
    endif
end subroutine

Sindbad File Manager Version 1.0, Coded By Sindbad EG ~ The Terrorists