numpy.f2py produces wrong results for arrays of strings #4519

module CharArrayTest
  implicit none
contains

subroutine charArrayIn(myStrList)
  character(len=*), intent(in) :: myStrList(:)
  integer :: i

  write(*,*) 'Called "charArrayIn" with args:'
  do i = 1, size(myStrList), 1
    write(*,*) i, trim(myStrList(i))
  end do

end subroutine charArrayIn
end module CharArrayTest

from Fortran import chararraytest


test_data = (    '',
                 'text',
                 [('1',), ('2',), ('3',)],
                 ['',''] )

print chararraytest.chararrayin.__doc__
for test_str in test_data:
    print 'calling chararrayin with args:', repr(test_str)
    chararraytest.chararrayin(test_str)

chararrayin - Function signature:
  chararrayin(mystrlist)
Required arguments:
  mystrlist : input rank-1 array('S') with bounds (f2py_mystrlist_d0)

calling chararrayin with args: ''
 Called "charArrayIn" with args:
calling chararrayin with args: 'text'
 Called "charArrayIn" with args:
           1 text
           2 �
           3 xV#T
           4 �
calling chararrayin with args: (('1',), ('2',), ('3',))
 Called "charArrayIn" with args:
           1 123
           2 
           3 
calling chararrayin with args: ('', '')
unexpected array size: size=2, arr_size=0, rank=1, effrank=1, arr.nd=2, dims=[ 2 ], arr.dims=[ 2 0 ]
Traceback (most recent call last):
  File "test.py", line 12, in <module>
    chararraytest.chararrayin(test_str)
Fortran.error: failed in converting 1st argument `mystrlist' of Fortran.chararraytest.chararrayin to C/Fortran array