test_bafrio.F90 calls 4-byte function with 8-byte integers

NOAA-EMC / NCEPLIBS-bacio

This library performs binary I/O for the NCEP models.

Other

2 stars 6 forks source link

Closed edwardhartnett closed 1 year ago

edwardhartnett commented 1 year ago

In test_bafrio.F90 we have:

  ! Check record length.
  ib8 = 0
  lx8 = 0
  call bafrindex(lu, ib8, lx8, ix8)
  if (ix8 .ne. 12) then
     print *, ix8
     stop 110
  end if

Since ib8 and ix8 are 8-bytes the function should be bafrindexl().