Your IP : 216.73.216.74

Current Path : /usr/local/python-3.13/lib/python3.13/site-packages/numpy/f2py/tests/src/crackfortran/
Upload File :
Current File : //usr/local/python-3.13/lib/python3.13/site-packages/numpy/f2py/tests/src/crackfortran/gh27697.f90

module utils
    implicit none
  contains
    subroutine my_abort(message)
      implicit none
      character(len=*), intent(in) :: message
      !f2py callstatement PyErr_SetString(PyExc_ValueError, message);f2py_success = 0;
      !f2py callprotoargument char*
      write(0,*) "THIS SHOULD NOT APPEAR"
      stop 1
    end subroutine my_abort
end module utils