Fix bugs discovered by Intel OneAPI (#43)

* Fix bugs discovered by Intel OneAPI

* Fix comment

* Add note about the supported compilers

Author: milancurcic

README.md

@@ -99,6 +99,13 @@ fpm test
 ```
 Running the tests will validate the behavior of the package and help identify any issues or regressions.
 
+### Supported compilers
+
+http-client is known to work with the following compilers:
+
+* GFortran 11 & 12 (tested in CI)
+* Intel OneAPI ifx v2023.1.0 and ifort classic v2021.9.0
+
 ### **Contributing guidelines**
 
 When contributing to the http Fortran package, please keep the following guidelines in mind:
@@ -112,4 +119,4 @@ When contributing to the http Fortran package, please keep the following guideli
 
 We appreciate your contributions and look forward to your valuable input in improving the http Fortran package.
 
-Happy coding!
+Happy coding!

src/http/http_client.f90

@@ -319,11 +319,11 @@ function set_body(curl_ptr, request) result(status)
         type(c_ptr) :: mime_ptr, part_ptr
 
         ! if only data is passed
-        if(len(request%data) > 0) then
+        if (allocated(request%data)) then
             status = set_postfields(curl_ptr, request%data)
 
         ! if file is passsed
-        else if(len(request%file%name) > 0) then
+        else if (allocated(request%file)) then
             mime_ptr = curl_mime_init(curl_ptr)
             part_ptr = curl_mime_addpart(mime_ptr)
             status = curl_mime_filedata(part_ptr, request%file%value)
@@ -345,14 +345,17 @@ function set_body(curl_ptr, request) result(status)
             end if
 
         ! if only form is passed
-        else if(allocated(request%form)) then
+        else if (allocated(request%form)) then
             request%form_encoded_str = prepare_form_encoded_str(curl_ptr, request)
             status = set_postfields(curl_ptr, request%form_encoded_str)
 
             ! setting the Content-Type header to application/x-www-form-urlencoded, used for sending form data
             if (.not. pair_has_name(request%header, 'Content-Type')) then
                 call append_pair(request%header, 'Content-Type', 'application/x-www-form-urlencoded')
             end if
+        else
+            ! No curl function was called so set status to zero.
+            status = 0
         end if
 
     end function set_body

src/http/http_request.f90

@@ -36,7 +36,7 @@ module http_request
             !! An Array of request headers.
         type(pair_type), allocatable :: form(:)
             !! An array of fields in an HTTP form.
-        type(pair_type) :: file
+        type(pair_type), allocatable :: file
             !! Used to store information about files to be sent in HTTP requests.
     end type request_type
 end module http_request