| 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 | |
| subroutine do_something(message) | |
| !f2py intent(callback, hide) mypy_abort | |
| character(len=*), intent(in) :: message | |
| call mypy_abort(message) | |
| end subroutine do_something | |
| end module utils | |