blob: 00c0ec93df059b0d1952471fae440016abbac3e5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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
|
