Numpy 1.16.2 f2py test fail

Reproducing code example:

python -c 'import numpy; numpy.test("full");'

Error message:

_____________________________________________________________________________________________________________ TestKind.test_all ______________________________________________________________________________________________________________

self = <numpy.f2py.tests.test_kind.TestKind object at 0x7f0197e35c88>

    @pytest.mark.slow
    def test_all(self):
        selectedrealkind = self.module.selectedrealkind
        selectedintkind = self.module.selectedintkind
    
        for i in range(40):
            assert_(selectedintkind(i) in [selected_int_kind(i), -1],
                    'selectedintkind(%s): expected %r but got %r' %
                    (i, selected_int_kind(i), selectedintkind(i)))
    
        for i in range(20):
            assert_(selectedrealkind(i) in [selected_real_kind(i), -1],
                    'selectedrealkind(%s): expected %r but got %r' %
>                   (i, selected_real_kind(i), selectedrealkind(i)))
E           AssertionError: selectedrealkind(16): expected 10 but got 16

i          = 16
selectedintkind = <fortran object>
selectedrealkind = <fortran object>
self       = <numpy.f2py.tests.test_kind.TestKind object at 0x7f0197e35c88>

/usr/lib/python3.7/site-packages/numpy/f2py/tests/test_kind.py:34: AssertionError
1 failed, 7409 passed, 92 skipped, 10 xfailed, 3 xpassed in 245.10 seconds

Numpy/Python version information:

1.16.2 3.7.2 (default, Jan 10 2019, 23:51:51) 
[GCC 8.2.1 20181127]

built using icc/MKL

[oleksandr-pavlyk]

I started to doubt myself, so I whipped up a small reproducer, based on numpy/f2py/tests/src/kind/foo.f90:

subroutine selectedrealkind(p, r, res)
  implicit none

  integer, intent(in) :: p, r
  !f2py integer :: r=0
  integer, intent(out) :: res
  res = selected_real_kind(p, r)

end subroutine

subroutine selectedintkind(p, res)
  implicit none

  integer, intent(in) :: p
  integer, intent(out) :: res
  res = selected_int_kind(p)

end subroutine

program checkrealkind
  integer res
  integer p

  do p = 4, 20, 1
     call selectedrealkind(p, 0, res)
     print *, p, res
  end do

  print *, "Done!"
end program checkrealkind

And compiled it so:

gfortran -o run_gfortran.exe foo.f90
ifort -o run_ifort.exe foo.f90

This is the output:

(def) [11:22:25 vmlin03 f]$ ./run_ifort.exe
           4           4
           5           4
           6           4
           7           8
           8           8
           9           8
          10           8
          11           8
          12           8
          13           8
          14           8
          15           8
          16          16
          17          16
          18          16
          19          16
          20          16
 Done!

(def) [11:25:24 vmlin03 f]$ ./run_gfortran.exe
           4           4
           5           4
           6           4
           7           8
           8           8
           9           8
          10           8
          11           8
          12           8
          13           8
          14           8
          15           8
          16          10
          17          10
          18          10
          19          16
          20          16
 Done!

Confirming the discrepancy.

[HaoZeke]

The OP issue is fixed.