c - 为什么 print 语句会改变 gzread 行为？

Question

我正在尝试使用 zlib library 中的 C 函数 gzopen、gzread 和 gzclose 以 Fortran 格式读取 gzip 文件.我的子例程在包含 print 语句时正常工作，但在没有它时给出 Z_STREAM_ERROR (-2)。是什么导致这种情况发生，我该如何解决？

module gzmodule
    use :: iso_c_binding
    implicit none
    private
    public fastunzip

    interface
        type(c_ptr) function gzopen(filename,mode) bind(c)
            use :: iso_c_binding
            character(kind=c_char), dimension(*) :: filename
            character(kind=c_char), dimension(*) :: mode
        end function gzopen
    end interface

    interface
        integer(c_int) function gzread(gzfile,buffer,length) bind(c)
            use :: iso_c_binding
            type(c_ptr), value :: gzfile
            character(len=1,kind=c_char) :: buffer(*)
            integer(c_int) :: length
        end function gzread
    end interface

    interface
        integer(c_int) function gzclose(gzfile) bind(c)
            use :: iso_c_binding
            type(c_ptr), value :: gzfile
        end function
    end interface

    contains

        subroutine fastunzip(filename, isize,abuf,ierr)
            use :: iso_c_binding
            character(len=*,kind=c_char), intent(in) :: filename
            integer(c_int), intent(out) :: isize
            character(len=1,kind=c_char), intent(inout) :: abuf(:,:,:,:)
            integer(4), intent(out) :: ierr
            type(c_ptr) :: gzfile
            integer(c_int) :: iclose
            logical :: c_associated
            ierr = 1  !! indicates that an error has occured
            isize = 0
            gzfile = gzopen(trim(filename)//c_null_char,"rb")
            if (.not.c_associated(gzfile)) return
            isize = gzread(gzfile,abuf,size(abuf))
            print*,isize  !! why do I need this for it to work?
            if (isize.ne.size(abuf)) return
            iclose = gzclose(gzfile)
            if (iclose.ne.0) return
            ierr = 0  !! success
        end subroutine fastunzip

end module gzmodule

program main
    use gzmodule        
    implicit none

    character(100) :: filename = './f10_19950120v7.gz'
    integer(4) :: isize
    integer(4) :: ierr
    logical(4) :: exists

    integer(4), parameter :: nlon = 1440
    integer(4), parameter :: nlat = 720
    integer(4), parameter :: nvar = 5
    integer(4), parameter :: nasc = 2
    character(1) :: abuf(nlon,nlat,nvar,nasc)

    inquire(file=filename,exist=exists)
    if (.not.exists) stop 'file not found'

    call fastunzip(filename, isize,abuf,ierr)
    print*,'return value of isize ',isize
    if (ierr.ne.0) stop 'error in fastunzip'

    print*,'done'    
end program main

我在 CentOS 上编译:

gfortran -o example_usage.exe example_usage.f90 /lib64/libz.so.1

数据文件位于this site .

Answer 1

在子例程 fastunzip 中声明 logical::c_associated。但是，您通过使用关联(iso_c_binding)获得此功能，因此您应该删除该行。

我安装的 gfortran (4.8) 将其标记为错误，所以我猜您使用的是旧版本？但是，一旦我删除该行，即使没有 print，您的代码似乎也能正常工作，所以也许这对您来说值得一试。

在风格说明上，我建议use, intrinsic::iso_c_binding，甚至可能使用only(这也会向您标记c_associated 是通过使用关联)。