.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/crackfortran/gh27697.f90


1
2
3
4
5
6
7
8
9
10
11
12

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