Skip to content

Commit 2bee99b

Browse files
authored
c_long -> c_size_t for content_length (#12)
* c_long -> c_size_t * Use int64 for content_length * Remove unneeded public attributes
1 parent 1d726c1 commit 2bee99b

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

src/http/http_response.f90

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
module http_response
2-
use, intrinsic :: iso_c_binding, only : c_size_t
2+
use, intrinsic :: iso_fortran_env, only: int64
33
use fhash, only: fhash_tbl_t, key => fhash_key
44

55
implicit none
@@ -9,10 +9,10 @@ module http_response
99

1010
! Response Type
1111
type :: response_type
12-
character(len=:), public, allocatable :: url, content, method, err_msg, header_string
13-
integer, public :: status_code = 0
14-
integer(kind=c_long), public :: content_length = 0
15-
logical, public :: ok = .true.
12+
character(len=:), allocatable :: url, content, method, err_msg, header_string
13+
integer :: status_code = 0
14+
integer(kind=int64) :: content_length = 0
15+
logical :: ok = .true.
1616
type(fhash_tbl_t) :: header
1717
end type response_type
1818

0 commit comments

Comments
 (0)